276
\$\begingroup\$

This is an challenge in which each answer builds on the previous answer. I recommend sorting the thread by "oldest" in order to be sure about the order in which the posts are made.

Note: This has become quite a long-lasting challenge, and posting new answers is fairly difficult. As such, there's now a chat room available for this challenge, in case you want advice on a particular part of a potential answer, have ideas for languages that could be added, or the like. Feel free to drop in if you have anything to ask or say!

The task

The nth program to be submitted must run in n different languages; specifically, all the languages added in previous programs to be submitted, plus one more. The program must output 1 when run in the first language used in answers to this question, 2 when run in the second language, and so on. For example, the first answer could print 1 when run in Python 3, and the second answer could output 1 when run in Python 3 and 2 when run in JavaScript; in this case, the third answer would have to output 1 when run in Python 3, 2 when run in JavaScript, and 3 when run in some other language.

Additional rules

  • Your program must run without erroring out or crashing. Warnings (and other stderr output) are acceptable, but the program must exit normally (e.g. by running off the end of the program, or via a command such as exit that performs normal program termination).

  • The output must be only the integer, but trailing newlines are OK. Other unavoidable stdout output is also allowed. Examples: interpreter name and version in Befunge-93, space after printed string in Zephyr. Some languages provide two methods of printing – with and without trailing space; in this case method without trailing space must be used.

  • Each answer must be no more than 20% or 20 bytes (whichever is larger) longer than the previous answer. (This is to prevent the use of languages like Lenguage spamming up the thread, and to encourage at least a minor amount of golfing.)

  • Using different versions of the same language is allowed (although obviously they'll have to print different numbers, so you'll need to fit a version check into the polyglot). However, you may not use a language feature that returns the language's version number. Repeating the exact same language is, obviously, impossible (as the program would have to deterministically print one of two different numbers).
  • Tricks like excessive comment abuse, despite being banned in some polyglot competitions, are just fine here.
  • You don't have to use the previous answers as a guide to writing your own (you can rewrite the whole program if you like, as long as it complies with the spec); however, basing your answer mostly on a previous answer is allowed and probably the easiest way to make a solution.
  • You cannot submit two answers in a row. Let someone else post in between. This rule applies until victory condition is met.
  • As this challenge requires other competitors to post in the same languages you are, you can only use languages with a free implementation (much as though this were a contest).
  • In the case where a language has more than one interpreter, you can pick any interpreter for any given language so long as all programs which are meant to run successfully in that language do so in that interpreter. (In other words, if a program works in more than one interpreter, future posts can pick either of those interpreters, rather than a post "locking in" a particular choice of interpreter for a language.)
  • This challenge now uses the new PPCG rules about language choice: you can use a language, or a language interpreter, even if it's newer than the question. However, you may not use a language/interpreter that's newer than the question if a) the language was designed for the purpose of polyglotting or b) the language was inspired by this question. (So newly designed practical programming languages are almost certainly going to be OK, as are unrelated esolangs, but things like A Pear Tree, which was inspired by this question, are banned.) Note that this doesn't change the validity of languages designed for polyglotting that are older than this question.
  • Note that the victory condition (see below) is designed so that breaking the chain (i.e. making it impossible for anyone else to answer after you via the use of a language that is hard to polyglot with further languages) will disqualify you from winning. The aim is to keep going as long as we can, and if you want to win, you'll have to respect that.

Answer format

As all the answers depend on each other, having a consistent answer format is going to be helpful. I recommend formatting your answer something like this (this is an example for the second link in the chain):

2. JavaScript, 40 bytes

(program goes here)

This program prints 1 in Python 3, and 2 in JavaScript.

(if you want to explain the program, the polyglotting techniques, etc., place them here)

Victory condition

Once there have been no new answers for 14 days, the winner will be whoever posted the second newest answer, i.e. the largest polyglot that's been proven not to have broken the chain. Extending the chain after that is still very welcome, though!

The winner is Chance, see answer 194 (TemplAt).

Language list

// This snippet is based on the snippet from hello world thread https://codegolf.stackexchange.com/questions/55422/hello-world
// It was tested only in Google Chrome

// https://stackoverflow.com/a/4673436
if (!String.prototype.format) {
  String.prototype.format = function() {
    var args = arguments;
    return this.replace(/{(\d+)}/g, (match, number) => (typeof args[number] != 'undefined' ? args[number] : match) );
  };
}

var QUESTION_ID = 102370; // from the question url
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

var answers = [], answer_page = 1;

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      if (data.has_more) { $('#status').text($('#status').text() + '.'); getAnswers(); }
      else process();
    },
    // [Documentation](http://api.jquery.com/jquery.ajax/) states that `error` handler is not called for cross-domain JSONP requests, 
    // but it works here, probably because api.stackexchange.com and codegolf.stackexchange.com are on the same domain.
    error:  function (a,b,c) { 
      $('#status').text( "Failed to load answers: " + b + " " + c );
      console.log( b + " " + c );
    },
  });
}

getAnswers();

// https://stackoverflow.com/questions/6290442/html-input-type-text-onchange-event-not-working/39834997#39834997
// https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement/input_event
const input = document.querySelector('input');
input.addEventListener('input', onSearchInput);

function onSearchInput(e)
{
    var table = document.getElementsByTagName("table")[0];
    var str = e.srcElement.value.toLowerCase();
    var num_results = 0;

    if(str == "") // optimization for empty input
    {
        // show all rows
        for(var i = 1, row; row = table.rows[i]; i++)
        {
            row.className = "";
            num_results++;
        }
    }
    else
    {
        for(var i = 1, row; row = table.rows[i]; i++)
        {
            var hidden = row.innerText.toLowerCase().indexOf(str) == -1;
            if(!hidden) num_results++;
            row.className = hidden ? "hidden" : "";
        }
    }
    document.getElementById("results").innerText = "Results: " + num_results;
}


/* Function ParseHeader() extracts answer number, language name and size of polyglot from answer header.
   Argument: `header` - answer header string without markup, eg. "1. Python 3 (8 bytes)" or "59. Tcl, 1324 bytes".
   Retval:  object, eg. {num: 1, language: "Python 3", size: 8} or 
            null if header has wrong format
  
   There are two formats of header, new one with comma and old one with parens.
   Parsing new format only with regexp is hard because:
   - language name may contain commas,                                 eg. "51. Assembly (x64, Linux, AS), 1086 bytes"
   - there may be several sizes, of which the last one should be used, eg. "210. Haskell without MonomorphismRestriction, 10035 9977 bytes"

   There are only several answers with old format header: 1-5, 7, 12-17, 21. All of them have single size and don't have parens in language name,
   so they can be parsed with simple regexp.
   
   Algorithm: Find commas. If there are no commas parse it as old format. Otherwise parse it as new format.
   New format parsing: Let everything after last comma be `sizes`. Check if `sizes` ends with the word "bytes". If not, set size to 0.
   Take the word before "bytes" and convert it to number. Parse the rest of the header (before last comma) with regexp.
*/
function ParseHeader(header)
{
  var a = header.split(',');
  if(a.length > 1) // current format: Number "." Language "," Size+ "bytes"
  {
    // filter(s=>s) removes empty strings from array (handle multiple consecutive spaces)
    var sizes = a[a.length-1].split(" ").filter(s=>s); // " 123 100  bytes " -> ["123", "100", "bytes"]
    var size;
    if(sizes.length < 2 || sizes[sizes.length-1] != "bytes") size = 0;
    else size = +sizes[sizes.length-2];

    a.splice(a.length-1,1); // remove last element
    var match = a.join(',').match(/(\d*)\.(.*)/);
    if (!match) return null;
    return{
            num: +match[1],
            language: match[2].trim(),
            size: size,
          };
  }
  else // old format: Number "." Language "(" Size "bytes" ")"
  {
    var format = /(\d*)\.([^(]*)\((\d*)\s*bytes\)/;
    var match = header.match(format);
    if (!match) return null;
    return{
            num: +match[1],
            language: match[2].trim(),
            size: +match[3]
          };
  }
}

// 1533246057 (number of seconds since UTC 00:00 1 Jan 1970) -> "Aug 2 '18"
// other useful Date functions: toUTCString, getUTCDate, getUTCMonth, getUTCFullYear
function FormatDate(n)
{
  var date = new Date(n*1000); // takes milliseconds
  var md = date.toLocaleDateString("en-US", {timeZone:"UTC", day:"numeric", month:"short"});
  var y  = date.toLocaleDateString("en-US", {timeZone:"UTC", year:"2-digit"});
  return md + " '" + y;
}


var processed = []; // processed answers, it's called `valid` in original snippet

function ProcessAnswer(a)
{
  var body = a.body, header;

  //
  // Extract header from answer body.
  // Try find <h1> header (markdown #). If not found try find <h2> (markdown ##).
  // Extracted header contains only text, all markup is stripped.
  // For 99 language markup is later readded to language name because markup is essential for it.
  //
  var el = document.createElement('html'); // dummy element used for finding header
  el.innerHTML = body;
  var headers = el.getElementsByTagName('h1');
  if(headers.length != 0) header = headers[0].innerText;
  else {
    headers = el.getElementsByTagName('h2');
    if(headers.length != 0) header = headers[0].innerText;
    else { console.log(body); return; } // error: <h1> and <h2> not found
  }

  var info = ParseHeader(header)
  if(!info) { console.log(body); return; } // error: unrecognised header format

  if(info.num == 99 && info.language == "99") info.language = "<i>99</i>";

  processed.push({
    num:         info.num,
    language:    info.language,
    size:        info.size,
    answer_link:   a.share_link,
    user:          a.owner.display_name,
    user_link:     a.owner.link,         // `undefined` if user was deleted
    creation_date: a.creation_date,      // unix epoch (number of seconds since UTC 00:00 1 Jan 1970)
  });
}

function process()
{
  $('#status').remove();

  answers.forEach(ProcessAnswer); // answers -> processed
  
  processed.sort( (a,b)=>(a.num-b.num) ); // sort by answer number, ascending

  processed.forEach(function (a) {
    
    var date = FormatDate(a.creation_date);

    var user = a.user_link ? ('<a href="'+a.user_link+'">'+a.user+'</a>') : a.user; // redundant code, currently the only deleted user is ais523
    if(user == "user62131") user = '<a href="https://chat.stackexchange.com/users/246227/ais523">ais523</a>';

    var style = (a.num == 194) ? "background: #ccf" : ""; // 194 is winner answer

    var row = "<tr style='{0}'><td>{1}</td> <td><a href='{2}'>{3}</a></td> <td>{4}</td> <td>{5}</td> <td>{6}</td></tr>"
              .format(style, a.num, a.answer_link, a.language, a.size, user, date);

    $('#answers').append( row );
  });
}
a {text-decoration:none}
a:visited {color:#00e}

table, td, th { border: 1px solid black; }
td, th { padding-left: 5px; padding-right: 5px; white-space: nowrap; }
tr:hover { background-color: #ff9; }
td:first-child  { text-align:center; } /* # */
td:nth-child(4) { font-style:italic; } /* author */
td:nth-child(5) { text-align:right;  } /* date */

p { margin: 8px 0px }
.hidden { display: none } /* search hides rows */
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<p>
  <span>Search: </span><input autofocus> &nbsp;<span id="results"></span>
</p>
<table class="answer-list">
  <thead>
    <tr><th>#</th> <th>Language</th> <th>Size (bytes)</th> <th>Author</th> <th>Date</th></tr>
  </thead>
  <tbody id="answers">
  
  </tbody>
</table>
<div id="status">Loading answers...</div>

\$\endgroup\$
28
  • 3
    \$\begingroup\$ For people who can see deleted posts: the Sandbox post was here. \$\endgroup\$
    – user62131
    Dec 6 '16 at 19:00
  • 5
    \$\begingroup\$ There's no need to copy the previous program, although of course you can use it as a guide; redoing the program from scratch is likely to take longer! There's no need to permalink to answers; sorting by oldest will show all the answers in order already. \$\endgroup\$
    – user62131
    Dec 6 '16 at 19:44
  • 3
    \$\begingroup\$ @ais523 I think what was meant was that should new answers contain try it links with the new code? \$\endgroup\$
    – Blue
    Dec 6 '16 at 19:45
  • 6
    \$\begingroup\$ I think we need a script that takes a hex dump of the code and automatically runs it in all the languages... \$\endgroup\$
    – mbomb007
    Dec 7 '16 at 20:05
  • 4
    \$\begingroup\$ This is the Versatile integer printer posted as a different type of challenge. (Inspiration?) The final answer (currently) would score 0.0127, only beaten by Sp3000's 30 language submission... :) \$\endgroup\$ Dec 17 '16 at 12:11

325 Answers 325

1
7 8 9 10
11
3
\$\begingroup\$

324. Befunk, 14700 bytes

# 6 "($?63_lv+'50;+'51;5 5 %$\--$[1140=@$aatq\" a/4*DvehfbIg/\"" 3 4//*'F*Pi26^qx}318qkp16[.qx]"8=,k]x PPX~_~)"xvy"\(  7#  CO|"14"   #:7 9 7 9              z    7 222222222222222222222222                 "'" #\\
# 1"7"//['][']     ````      [>.>.?]~~)[7aatxy \#184  O@    <!--     (22)Siii/ \psddpsdoh ]##### #######++(- #### ##-[######;mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kkX"204".â'_PPQss>3Ā~>1Ā~>7Ā~v 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#1111#y#y#y#_#         ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退           coding=utf8         @ [[[["472"?]]]]******<
# if-0//               18&1&  nthteo nthieo nthneo an-;et R[+++].----._     /112\11  ##### #######   # #    #####  #   #   #    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#WWWWWWWWWWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
#6!@eD>>if 3>3*>++++++!\::    @ / 78"oo@" *1220*1220L*1211  >" 082",,,@_   2-----2########'\"'##`### ###### ######## #### ##### ####### ##### ###11  # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
# endif/*  1 1 v>>>>>>> >>">r"{\>>>>  @ 0:8:8/_}\(* [>]R 10G|'53'S 11111111\)      # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>##>#>##  ## ####
#comment -[v   >>>>>>>> >>>>>>>>>>>>>>>>>>>9 @,,,"279"]>252O>"01",,@_  h$s o#      #????!?!??!??!!!!???!?!??!!?   !?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>                                
#[[/]e] x  > >>>>>>>@!:!8:6:2/_ >>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>    11#v1cbbbzcbaaaabaca1tau@.7.8.2<axayatbubxbtcuc11
#~[! R++++++] +++++++++\++++++++++++++++++++++++++++++++++U.._+++++++._+++o+++o--ox#
####################################################################################>
 #{{{{]~*[~*  +++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] '4o'6o@ )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#-  x
#* *#p 173#*  e:1*23/5x%6E2  []-main=-[165]- ###  `. :-write(186). end_of_file. `
#`⟪`⟪\⟫9999 9 9
#/*9 999 99 9999 Mn MMM MMMMnnMnnnMnMMMMMMMnMMnnnnnMMn>MnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM             @,,, "286"_+1y2 #<"67",,@␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋'''␌`297'print quit`s'''␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
#|9  
#cs 9 9999
#<<<#-->
#><meta http-equiV=X-UA-Compatible content=IE=99><!-- e$P+++++*D*+++1++1E!sss
#   
#{  
#bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRt MbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=($?$?0l0c01k1k0l0i 0r 0h0h1d1 1 1 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n1 10mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10c 0c0l1111000001 1 100|_  )\
[ ' "`e```.1.0.6i]56pq["]298 .quit._[`\']put 294 bye!\` #s['];#/\\/;print 24;exit}}__END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM e>+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
' WWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;W_;Ww;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;WWWWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1* )echo 242;;4* )echo 78;;8* )echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0* )echo 282;;* )echo 58;;esac;exit;#{IO.puts 295#)';  print (0and eval('":"&&(defined?A)&&290||(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||109+1')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss{}#(prin 45)(bye){{{}#}#}#(prin 199)(bye)46(8+9+9+9+9+=!)>* * * * *[[[[3+4*7*@] ] ] ]xxxxxxxxxxxxxxxxxxxxxx
###;{e=1}={e:null};console.log e&&39||180;\
__DATA__="""  
#"  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit
ifdef ss 
1     ! !
2   !    !
9      !!
2#
#  
#  
#  
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs wwwwwwwwwwwWWWwWWWWWwWWWWWWWwWWWWWWWWWwWWWWWWWWWWWWWWWwWWWWWWWWWWWWw W
jrzaeeaeuee_wuuwq jii_iullluiiiogr se_eeepaeeeeeeeeee;eeecisajjarpppppp ⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
😊♈💖  ↨↑1↑↑↑↑↑↑↑↑↨21↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑2↨↑1↑↑↑↨↨0↑0↕→
😇♈♈  
😊♉♈  
😇♈♈  
😇♈♉  
😇♈💜  
😊♉♈  
😊📢♈  #e:>*****[[[[828+*+@+*99] ] ] ]*****<
😈♈💜  
😊📢♈  
😇♉💞  
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
#X  
#+------+XX   X       XXX
_|/0110@| X X  XXXXXXXXX X
_|/00011| X X   XXXXXXX
_|/1001 | X
_|/1001 | 
_|/1000 | 
_|/$001 | 
#+------+  
#+    +
1   *xxxxxxx
53 x+       x x     xxx
1  x*  xxxx  xx   xx x  x
x  x  x  x  x x  x  x  xx
 +xx xxxxxxx +x xxxxxxx  xxxx
x  x   x      x   x
51  +xx        xxx
#  
1   *     x``   x  x
49 #+  xx+x=>+  x+x + x B+ ===+
#  =x x  x===  x x >8 xxx +++= +
#+  +x + x,_8=>+ xB  x+x
# =+R _*=x==  x +===+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
#+ ``=>8=x>  x+~ x  x +x+B+
#  +====+x>~+B+= x x + x
#D~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#= +
+ *   +
#= + *
#=**************************************************+
  +  +$$$
#>"3"O._   +// rk:start | print: "69" rk:end       +
   + ; + *
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
^* *
 #+*****|
.x= #   +
,,  .=#
 #+ OOO       =#
 #^=
+`` 231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
  
write 224;bye; 
  
 console.log 178;
  
~~~x  
main:Int  
main =248 
~~~  
literally, print 249
(print 164  (exit    ) )
 ( *)
begin write         ('288'    )end.(*)
print 61
  
#<<<##>  
         print(85)
#<<<##>CO COMMENTp]] 
execute_process(COMMAND echo 296)#[[
  
T:251  
E:0  
#+IDRIS: main:IO      (    );main=print 291
#ppW<#require"stdio"Stdio:write     (293  )#>
#ceppp  ;  ;   ; ;
MsgBox (0,"",169   )
#cs  
You can see an x here.<<  
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120.
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run (putStr"159" )
\end{code}
ppppppppppppp;p
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa
#n::=~147
42::~322
::=
#^^aa>>[0]{472454523665721469465830106052219449897} ()
#aa->=323







































































































































































































































































































#-->
<p>301</p>
<a>304</a>
<b>305</b>
<i>309</i>
<u>310</u>
 
<script type="text/tiscript">self.html="<p>302"</script><script> onload=function(){
d=document
d.body.style.color='000'
d.body.innerHTML=[ ].pop ?
257+[10,,,0,,,18,2,d.clear?5:58,d.compatible?50:window.XMLHttpRequest?49:d.nodeType?8:55][[""+[].pop][0].length-!!d.head-!d.fonts-28]:d.dir==''?312-1:308
}</script>

<style>
head+body,text{display:none}
:,a,i{color:fff}*{+color:fff}
a{-color:000}-a,b{color:000;-color:fff}
: u,-i{color:000}
:after{content:"258";[;content:"276";]}
@media all\0{
:after{content:"260";color:#fff\ 
}:root:before{content:"316";color:fff}
:before{content:"314"}}
@media \0 all{:after{content:"266"}}
</style>

<attache>Print[194]Exit[]</attache>
 
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
4OURfuorfuor
FOU4
FOU4
FOU4fuor
FOU4four
4444fuor
FOU4
FOU4four
4444
4OUR
4OUR
4444
 ; ;
set ! 57
set ! 51
out &49 &1
out &56 &1
out &50 &1
When this program starts:
There is a scribe called x
x is to write 179

p now 70 dollar off!
p has been selling out worldwide!
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet
#
ata#8;&&1Prers>0::geEx Cr Uithary,85".c"F ._# gi[s]pogr3461  prstd!\0k:4o $/op>asequ+4[]!!tfc;[ ]5:ore>8 4?4920C05r""Hadisptext在uR 8
 
*/
 
#1""
#if!1
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="25 10 37 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""V c #000502"": c #010001""@ c #090909""2 c #000002""3 c #000003""4 c #000004""HHHVahtdegggggggyrggggggc""IHH3aixuEFbGGbggbryAEGRgc""CCH:afyurbgbgggggggb____o""ICH2akmyyyyyyyyyyyyyyyyye""I__:almyyyyyyyyyyyyyyyyye""K__4anmyyyyyyyyyyyyyy_y_e""HH_:aqggyyyyyyyyg____m_Ce""CH_@axxxxxxxxxxxxxxxxxxxx""K___aaaam___bbbbbBm_bbBab""K___________bbbbb___bbxbb";//"
typedef int known,macro;int x=!  '(',y[60];macro m(){0;}int f(int a,...){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1? (1&*z (N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y);x=1;return 0;}__attribute__((destructor))int g(){x?0:puts("198");}//())*/
#1""/*/
<<<<<<<<<<WQTkTTX
 
 
>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;import Text.Show.Functions;instance Monoid a=>Monad (Const a)where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};b=x#x
>i_= -1`mod`2+c;data B=B Int;_=B b;e=error"#";f?n=  unsafePerformIO$ catch (f e)$ \ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a)where{show _=""};f= (^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$ (id::a->a)pi};c=l (- x )`mod`4;g=[here|here<-""]--[|]
>--W
>x=0;y#a=subtract 0b1206;x#a=174;h a=a^x;r=pure;l a=length$ show a;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=206+[40,58,0,57,55,26,16,3,4,-78,0,1,8,5,6,12-1]!!(l("  ",0x0.1,1e1,(0`id`),k(0::Float ),toEnum 0::Num a=>Enum a=>a )+2*l  (do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))-(-q?6+70+z));(!)=seq
>;
>main|let p!_=0=print$ sum[last$172:[[b,0,170,303]!!i_|g<">"],0!61]--} 
 
#1 ""/*/
#if!1
#endif//*
/*/
#if!1
_;
select 192;
.exit
print1(292)
quit
#endif
p=sizeof("   (\");print'(''72'')';end !" );main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
#}
disp 49
#{
}{}<>
 /._++.._# !._++.-.>@
#:  /
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;  + #.---.>/
#s{  /<+>/   K yya+-        &  g+$
endif#                A=AgRA;       AC
# {\
""";'"#{'#'}'}'
#@[[[["272"?]] #]]******<
#<<<#
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}}#$/
#endcomment;K`250
#nocomment outtext("155" )
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;:@,,,"285"_+1y2"982"2k,# @#;# k-'1:,,@_ pS9^7^8^MUOUOF
#\!|!o51   ;        ~nJQ  p'34'  \=#x=4;print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2 )#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/123nnn; :/aa*7+42@n;/#print(171)#s-#print 175#s|#print(208)#sCOMMENTprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//  >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^ee*n\               \! 99              \*n*n*e*s*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js"(*)//dd"      <e 5>1  */// \)∙226p|_|_X222999612#

Try it online!diff

Befunk interpreter uses PIL, which is not available in latest Python. Pillow can be used instead: pip install Pillow.

Polyglot has to be converted to PPM format with ImageMagick before feeding it to the interpreter: convert polyglot.xpm polyglot.ppm. PIL/Pillow don't like PNG created by ImageMagick, so using PPM instead (as with ImageFuck).

Code of image-based langs is on line 568.

Befunk code is between Floater and Piet, it is equivalent to Befunge 3.2.4.@ except Befunk doesn't print space after a number. Befunk execution path:

(x,y)   Color     Funk val   Funge cmd   Comment
(0,0)   #0000AA   000        0           Floater code
(1,0)   #0000AA   000        0           Floater code
(2,0)   #0000AA   000        0           Floater code
(3,0)   #000502   052        v
(3,1)   #000003   003        3
(3,2)   #010001   101        .
(3,3)   #000002   002        2
(3,4)   #010001   101        .
(3,5)   #000004   004        4
(3,6)   #010001   101        .
(3,7)   #090909   999        @
\$\endgroup\$
3
\$\begingroup\$

325. Treehugger, 14663 bytes

# 6 "($?63_lv+'50;+'51;5 5 %$\--$[1140=@$aatq\" a/4*DvehfbIg/\"" 3 4//*'F*Pi26^qx}318qkp16[.qx]"8=,k]x PPX~_~)"xvy"\(  7#  CO|"14"   #:7 9 7 9              z    7 222222222222222222222222                 "'" #\\
# 1"7"//['][']     ````      [>.>.?]~~)[7aatxy \#184  O@    <!--     (22)Siii/ \psddpsdoh ]##### #######++(- #### ##-[######;mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kkX"204".â'_PPQss>3Ā~>1Ā~>7Ā~v 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#1111#y#y#y#_#         ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退           coding=utf8         @ [[[["472"?]]]]******<
# if-0//     xxxxxxxxx 18&1&  nthteo nthieo nthneo an-;et R[+++].----._     /112\11  ##### #######   # #    #####  #   #   #    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#WWWWWWWWWWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
#6!@eD>>if 3>3*>++++++!\::    @ / 78"oo@" *1220*1220L*1211  >" 082",,,@_   2-----2########'\"'##`### ###### ######## #### ##### ####### ##### ###11  # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
# endif/*   v 1 >>>>>>> >>">r"{\>>>>  @ 0:8:8/_}\(* [>]R 10G|'53'S 11111 1 1\)     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>##>#>##  ## ####
#comment -[v>]-main=-[165]-   ### >>>>>>>>9 [@,,,"279"]>252O>"01",,@_  h$s o#      #????!?!??!??!!!!???!?!??!!?   !?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>   :1*23/5%6E2
#[[/]e] x  > >>>>>>>@!:!8:6:2/_ >>>>>>>>>>>>>>>>>>>>>>>>>> ;>>>>>>>>>>>>>>>>>    11#v1cbbbzcbaaaabaca1tau@.7.8.2<axayatbubxbtcuc11
#~[! R++++++] +++++++++\++++++++++++++++++++++++++++++++++U.._+++++++._+++o+++o--ox#
####################################################################################>
 #{{{{]~*[~* -[>+<-----]>-._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}++<^>--[^>[+[>+^-----]>.-._+++._>]<[+[>+<-----]>--._++++._+++._<] ]+-+<['4o'6o@<=oC<=oC<._>>>>-]^>[<-[>+<-----]>-@@+.---@._+>$]  )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#-  e:
#* *#p 173#*
#`⟪`⟪\⟫9999 9 9
#/*9 999 99 9999 nMn MMM MMMMnnMnnnMnMMMMMMMnMMnnnnnMM>nMnMnnMnMnnnnnnM //`. :-write(186). end_of_file. `M  @,,, "286"_+1y2 #<"67",,@␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋'''␌`297'print quit`sMMMMMMMMnnMnMnnnMnMMMM'''␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
#|9  
#cs 9 9999
#<<<#-->
#><meta http-equiV=X-UA-Compatible content=IE=99><!-- e$P+++++*D*+++1++1E!sss
#   
#{  
#bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRt MbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=($?$?0l0c01k1k0l0i 0r 0h0h1d1 1_1 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n1 10mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10c 0c0l1111000001_1 100|_  )\
[ ' "`e```.1.0.6i]56pq["]298 .quit._[`\']put 294 bye!\` #s['];#/\\/;print 24;exit}}__END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM e>+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
' WWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;W_;Ww;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;WWWWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1* )echo 242;;4* )echo 78;;8* )echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0* )echo 282;;* )echo 58;;esac;exit;#{IO.puts 295#)';  print (0and eval('":"&&(defined?A)&&290||(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||109+1')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss{}#(prin 45)(bye){{{}#}#}#(prin 199)(bye)46(8+9+9+9+9+=!)>* * * * *[[[[3+4*7*@] ] ] ]xxxxxxxxxxxxxxxxxxxxxx
###;{e=1}={e:null};console.log e&&39||180;\
__DATA__="""  
#"  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit
ifdef ss 
1     ! !
2   !    !
9      !!
2#
#  
#  
#  
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs wwwwwwwwwwwWWWwWWWWWwWWWWWWWwWWWWWWWWWwWWWWWWWWWWWWWWWwWWWWWWWWWWWWw W
jrzaeeaeuee_wuuwq jii_iullluiiiogr se_eeepaeeeeeeeeee;eeecisajjarpppppp ⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
😊♈💖  ↨↑1↑↑↑↑↑↑↑↑↨21↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑↨↨↑2↨↑1↑↑↑↨↨0↑0↕→
😇♈♈  
😊♉♈  
😇♈♈  
😇♈♉  
😇♈💜  
😊♉♈  
😊📢♈  #e:>*****[[[[828+*+@+*99] ] ] ]*****<
😈♈💜  
😊📢♈  
😇♉💞  
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
#X  
#+------+XX   X       XXX
_|/0110@| X X  XXXXXXXXX X
_|/00011| X X   XXXXXXX
_|/1001 | X
_|/1001 | 
_|/1000 | 
_|/$001 | 
#+------+  
#+    +
1   *xxxxxxx
53 x+       x x     xxx
1  x*  xxxx  xx   xx x  x
x  x  x  x  x x  x  x  xx
 +xx xxxxxxx +x xxxxxxx  xxxx
x  x   x      x   x
51  +xx        xxx
#  
1   *     x``   x  x
49 #+  xx+x=>+  x+x + x B+ ===+
#  =x x  x===  x x >8 xxx +++= +
#+  +x + x,_8=>+ xB  x+x
# =+R _*=x==  x +===+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
#+ ``=>8=x>  x+~ x  x +x+B+
#  +====+x>~+B+= x x + x
#D~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#= +
+ *   +
#= + *
#=**************************************************+
  +  +$$$
#>"3"O._   +// rk:start | print: "69" rk:end       +
   + ; + *
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
^* *
 #+*****|
.x= #   +
,,  .=#
 #+ OOO       =#
 #^=
+`` 231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
  
write 224;bye; 
  
 console.log 178;
  
~~~x  
main:Int  
main =248 
~~~  
literally, print 249
(print 164  (exit    ) )
 ( *)
begin write         ('288'    )end.(*)
print 61
  
#<<<##>  
         print(85)
#<<<##>CO COMMENTp]] 
execute_process(COMMAND echo 296)#[[
  
T:251  
E:0  
#+IDRIS: main:IO      (    );main=print 291
#ppW<#require"stdio"Stdio:write     (293  )#>
#ceppp  ;  ;   ; ;
MsgBox (0,"",169   )
#cs  
You can see an x here.<<  
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120.
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run (putStr"159" )
\end{code}
ppppppppppppp;p
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa
#n::=~147
42::~322
::=
#^^aa>>[0]{472454523665721469465830106052219449897} ()
#aa->=323







































































































































































































































































































#-->
<p>301</p>
<a>304</a>
<b>305</b>
<i>309</i>
<u>310</u>
 
<script type="text/tiscript">self.html="<p>302"</script><script> onload=function(){
d=document
d.body.style.color='000'
d.body.innerHTML=[ ].pop ?
257+[10,,,0,,,18,2,d.clear?5:58,d.compatible?50:window.XMLHttpRequest?49:d.nodeType?8:55][[""+[].pop][0].length-!!d.head-!d.fonts-28]:d.dir==''?312-1:308
}</script>

<style>
head+body,text{display:none}
:,a,i{color:fff}*{+color:fff}
a{-color:000}-a,b{color:000;-color:fff}
: u,-i{color:000}
:after{content:"258";[;content:"276";]}
@media all\0{
:after{content:"260";color:#fff\ 
}:root:before{content:"316";color:fff}
:before{content:"314"}}
@media \0 all{:after{content:"266"}}
</style>

<attache>Print[194]Exit[]</attache>
 
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
4OURfuorfuor
FOU4
FOU4
FOU4fuor
FOU4four
4444fuor
FOU4
FOU4four
4444
4OUR
4OUR
4444
 ; ;
set ! 57
set ! 51
out &49 &1
out &56 &1
out &50 &1
When this program starts:
There is a scribe called x
x is to write 179

p now 70 dollar off!
p has been selling out worldwide!
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet
#
ata#8;&&1Prers>0::ge>Ex Cr Uithary,85".c"F ._# gi[s]pogr3461  prstd!\0k:4o $/op>asequ+4[]!!tfc;[ ]5:ore>8 4?4920C05r""Hadisptext在uR 8
 
*/
 
#1""
#if!1
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="25 10 37 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""V c #000502"": c #010001""@ c #090909""2 c #000002""3 c #000003""4 c #000004""HHHVahtdegggggggyrggggggc""IHH3aixuEFbGGbggbryAEGRgc""CCH:afyurbgbgggggggb____o""ICH2akmyyyyyyyyyyyyyyyyye""I__:almyyyyyyyyyyyyyyyyye""K__4anmyyyyyyyyyyyyyy_y_e""HH_:aqggyyyyyyyyg____m_Ce""CH_@axxxxxxxxxxxxxxxxxxxx""K___aaaam___bbbbbBm_bbBab""K___________bbbbb___bbxbb";//"
typedef int known,macro;int x=!  '(',y[60];macro m(){0;}int f(int a,...){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1? (1&*z (N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y);x=1;return 0;}__attribute__((destructor))int g(){x?0:puts("198");}//())*/
#1""/*/
<<<<<<<<<<WQTkTTX
 
 
>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;import Text.Show.Functions;instance Monoid a=>Monad (Const a)where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};b=x#x
>i_= -1`mod`2+c;data B=B Int;_=B b;e=error"#";f?n=  unsafePerformIO$ catch (f e)$ \ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a)where{show _=""};f= (^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$ (id::a->a)pi};c=l (- x )`mod`4;g=[here|here<-""]--[|]
>--W
>x=0;y#a=subtract 0b1206;x#a=174;h a=a^x;r=pure;l a=length$ show a;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=206+[40,58,0,57,55,26,16,3,4,-78,0,1,8,5,6,12-1]!!(l("  ",0x0.1,1e1,(0`id`),k(0::Float ),toEnum 0::Num a=>Enum a=>a )+2*l  (do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))-(-q?6+70+z));(!)=seq
>;
>main|let p!_=0=print$ sum[last$172:[[b,0,170,303]!!i_|g<">"],0!61]--} 
 
#1 ""/*/
#if!1
#endif//*
/*/
#if!1
_;
select 192;
.exit
print1(292)
quit
#endif
p=sizeof("   (\");print'(''72'')';end !" );main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
#}
disp 49
#{
}{}<>
 /._++.._# !._++.-.>@
#:  /
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;  + #.---.>/
#s{  /<+>/   K yya+-        &  g+$
endif#                A=AgRA;       AC
# {\
""";'"#{'#'}'}'
#@[[[["272"?]] #]]******<
#<<<#
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}}#$/
#endcomment;K`250
#nocomment outtext("155" )
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;:@,,,"285"_+1y2"982"2k,# @#;# k-'1:,,@_ pS9^7^8^MUOUOF
#\!|!o51   ;        ~nJQ  p'34'  \=#x=4;print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2 )#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/123nnn; :/aa*7+42@n;/#print(171)#s-#print 175#s|#print(208)#sCOMMENTprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//  >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^ee*n\               \! 99              \*n*n*e*s*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js"(*)//dd"      <e 5>1  */// \)∙226p|_|_X222999612#

Try it online!diff

Both interpreters linked from esolangs article have problems. Haskell interpreter doesn't implement input and ignores everything after first #. JavaScript interpreter incorrectly handles nested loops. Also, the interpreters have different cell sizes, so Haskell interpreter won't work with polyglot even if . takeWhile (/='#') is removed. This is the js interpreter that is used for polyglot. I adapted it for nodejs and fixed the problem with loops.

Treehugger takes the path of HDBF:

old:  --<^>++[ hdbf code ]
new:  ++<^>--[ ^>[+[>+^-----]>.-._+++._>] <[ hdbf code ] ]

-- and ++ are switched for golf. After ++<^>-- Treehugger tree is

   [2]
[0]   [254]*

^> in ^>[+ doesn't change current cell in Treehugger, but moves to zero cell in HDBF. Brainfuck loop to get 51 -[>+<-----]> becomes +[>+^-----]> here because there is -- in front and <^.

Golf: changed all bf loops except Brainlove to -[>+<-----]>, in Brainlove it doesn't gain any bytes. Moved Ursala up to fix -[ in brainfuck code.

\$\endgroup\$
2
  • \$\begingroup\$ I wonder if it's possible to use the flaws in the other interpreters to add them separate to the polyglot. The Haskell one is obviously unusable, but maybe the JS one can be used? \$\endgroup\$
    – Wheat Wizard
    23 hours ago
  • \$\begingroup\$ @WheatWizard I don't feel good about the loop bug in the JS interpreter. I feel like it's something that should be fixed, not something that should be relied upon. But even if someone is willing to accept the JS interpreter as is, it would be very hard to add because polyglot relies heavily on correct loop behavior. Haskell interpreter without takeWhile could be added, but I don't want to do it right now. (I said it "won't work" meaning with current polyglot, because I used a Treehugger loop that relies on cells wrapping like unsigned byte.) \$\endgroup\$
    – stasoid
    4 hours ago
2
\$\begingroup\$

257. HTML+JavaScript (Chrome), 11930 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}['4o'6o@.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<- ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtPsPsPsMbMbMb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]//\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWwww⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;p
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=257</script>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #ata=",_"[ 4];t}?1<&&1$/PLconsPrerslo/  \~-<V->8;rextnu U9583>Ehar51 Cr=B$f 16ge[d 2FAC]ngt.putsle._>dint 22$
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;{-W-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$show a;b1206|let _._=x;negate _=3=[246,0,0,0,0,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- (-q?6+50) );q _=r$(d.B)?4;d(B _)=r$f 0$f 2 64;f=  (^);instance Num(  );(!)=seq
>;
>main|let p!_=0=print$sum[0 !61,{-_-}last$172:[u$[-1]!!0|g<"Z>"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};] ppppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Q222999612#

Try it online!

(switched back to static TIO link because Run code snippet button just shows 257 now)

I tested this answer in Google Chrome 75. Polyglot file must have .html or .htm extension.
The idea to add HTML came from this polyglot.

Main code is on line 149:

<script>document.body.innerHTML=257</script>

When browser encounters <script> tag without attributes it pauses document parsing, executes the script, and resumes parsing (see the diagram here). Then a question arises: why resulting page does not contain all the junk below line 149? – I don't know, but it looks like <Wr#> tag accidentally opened in Zilog Z80 code on line 2 plays some role in this behavior. Anyway, all the browsers I tried work the same with the polyglot, so I am pretty sure it is standard behavior, I just couldn't find it in HTML spec. I tried Google Chrome 75 (most recent stable version), Mozilla Firefox 59, Opera 11.64 (Presto-based) and Internet Explorer 11 (all these browsers have different engines).

\$\endgroup\$
2
\$\begingroup\$

258. HTML+CSS, no JS (Chrome), 11990 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}['4o'6o@.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<- ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtPsPsPsMbMbMb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWwww⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;ppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=257</script><style>body{display:none}html:after{content:"258"}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #ata=",_"[ 4];t}?1<&&1$/PLconsPrerslo/  \~-<V->8;rextnu U9583>Ehar51 Cr=B$f 16ge[d 2FAC]ngt.putsle._>dint 22 8$
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;{-W-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$show a;b1206|let _._=x;negate _=3=[246,0,0,0,0,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- (-q?6+50) );q _=r$(d.B)?4;d(B _)=r$f 0$f 2 64;f=  (^);instance Num(  );(!)=seq
>;
>main|let p!_=0=print$sum[0 !61,{-_-}last$172:[u$[-1]!!0|g<"Z>"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};] ppppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Q222999612#

Try it online!

I tested this answer in Google Chrome 75 with disabled JavaScript.
JS can be disabled for all pages at chrome://settings/content/javascript or for one page in DevTools: F12, Ctrl+Shift+P, j → Disable JavaScript (JS will be disabled as long as DevTools is open).
Quick Javascript Switcher extension doesn't work with local files. Command line option --disable-javascript is no longer available.

Main code is on line 149:

<style>body{display:none}html:after{content:"258"}</style>

When JavaScript is disabled, <style> hides body and inserts pseudo-element with content 258 after last html child, that is, after body.
When JavaScript is enabled, <style> is vanished with its parent <wr#>, see previous answer.

\$\endgroup\$
2
  • \$\begingroup\$ HTML was always something I wanted to try because I knew browsers are so forgiving, but I didn't think to use Javascript or CSS to display stuff \$\endgroup\$
    – Potato44
    Jul 25 '19 at 21:36
  • \$\begingroup\$ @Potato44 That mauke polyglot turned out to be very useful – it inspired addition of Haskell and HTML, which have so many variants. Maybe Wheat Wizard got the idea of adding different Haskell flavors from that polyglot as well. \$\endgroup\$
    – stasoid
    Jul 27 '19 at 8:40
2
\$\begingroup\$

259. HTML+JavaScript (Firefox), 12030 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}['4o'6o@.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<- ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtPsPsPsMbMbMb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWwww⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;ppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=typeof InstallTrigger=='undefined'?257:259</script><style>body{display:none}html:after{content:"258"}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #ata=",_"[ 4];t}?1<&&1$/PLconsPrerslo/  \~-<V->8;rextnu U9583>Ehar51 Cr=B$f 16ge[d 2FAC]ngt.putsle._>dint 22 8 $
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;{-W-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$show a;b1206|let _._=x;negate _=3=[246,0,0,0,0,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- (-q?6+50) );q _=r$(d.B)?4;d(B _)=r$f 0$f 2 64;f=  (^);instance Num(  );(!)=seq
>;
>main|let p!_=0=print$sum[0 !61,{-_-}last$172:[u$[-1]!!0|g<"Z>"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};] ppppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Q222999612#

Try it online!

I tested this answer in Mozilla Firefox 59.

I used Firefox detection code from this gist:

<script>document.body.innerHTML=typeof InstallTrigger=='undefined'?257:259</script>
\$\endgroup\$
2
\$\begingroup\$

260. HTML+CSS, no JS (IE11), 12100 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}['4o'6o@.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<- ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtPsPsPsMbMbMb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWww⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;pppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=typeof InstallTrigger=='undefined'?257:259</script><style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #ata=",_"[ 4];t}?1<&&1$/PLconsPrerslo/  \~-<V->8;rextnu U9583>Ehar51 Cr=B$f 16ge[d 2FAC]ngt.putsle._>dmint 22bont:2 3af  $
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;{-W-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$show a;b1206|let _._=x;negate _=3=[246,0,0,0,0,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- (-q?6+50) );q _=r$(d.B)?4;d(B _)=r$f 0$f 2 64;f=  (^);instance Num(  );(!)=seq
>;
>main|let p!_=0=print$sum[0 !61,{-_-}last$172:[u$[-1]!!0|g<"Z>"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};] ppppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Q222999612#

Try it online!

Internet Explorer 11 automatically blocks JavaScript in local files and displays a prompt to enable it, so there is no need to disable JS in IE11.

To separate IE11 special media query is used (see here):

<style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}</style>

Space before ( is mandatory.

I noticed that sometimes colon doesn't need to be commented out in psPILOT (eg. line 41), so I removed // from line 28.

\$\endgroup\$
2
\$\begingroup\$

262. HTML+JavaScript (IE11), 12160 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}['4o'6o@.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<- ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtPsPsPsMbMbMb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWww⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;pppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=typeof InstallTrigger!='undefined'?259:document.documentMode?262:257</script><style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #ata=",_"[ 4];t}?1<&&1$/PLconsPrerslo/  \~-<V->8;rextnu U9583>Ehar51 Cr=B$f 16ger[d 2FAC]ngt.putsle._>dmint 22afbont:2: 6  l{ $
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;{-W-}import Text.Show.Functions;instance Monoid a=>Monad(Const a )where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$show a;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=[246,0,0,0,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id` ),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))-(-q?6+50+z));q _=r$(d.B)?4;d(B _)=r$f 0$f 2 64;f=(^);instance Num();  (!)=seq
>;
>main|let p!_=0=print$sum[0 !61,{-_-}last$172:[u$[-1]!!0|g<"Z>"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};] ppppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Q222999612#

Try it online!

document.documentMode is used to separate Internet Explorer 11 from Chrome. documentMode is present only in IE, see here and here.

The code in polyglot:

<script>document.body.innerHTML=typeof InstallTrigger!='undefined'?259:document.documentMode?262:257</script>

Note: window.InstallTrigger is not used instead of typeof InstallTrigger!='undefined' because of Grass.

\$\endgroup\$
2
\$\begingroup\$

264. Haskell with ScopedTypeVariables, 12400 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### #  # #####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]xx  >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<-'4o'6o@ ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRqTzTzTzRtRtRtMbMbMbPsPsPs
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;ppppppppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>document.body.innerHTML=typeof InstallTrigger!='undefined'?259:document.documentMode?262:257</script><style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #a",_"[];l{t}8;rext7095?1&&1PLers$/  \nu2FAC0::FloatV$ f Cr=B51 16 4 6>E>83nt:k:~-<le._ngtbontgerminPrsharExu Uatafint 22w;e!         $
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...    ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak) )int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__ ((destructor) )int g (){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTZ-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num (a->b);instance Num();instance K Float;instance Show(Q a)where{show _=""};f=(^);q _=r$ (d.B  )?4;d(B _ )=r$ f 0$ f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k=pure$ show(f pi)where f=id::a->a};g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k(0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ) )-(-q?6+70+z)); (!)=seq
>;
>main|let p!_=0=print$ sum[0 !61,{-_-}last$ 172:[u$ [-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};]  pppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Z222999612#

Try it online!

This answer is based on mauke's code adjusted for polyglot by Ørjan Johansen (test it):

class(Show a,Floating a)=>K a where{k::a->String;k=pure$ show(f pi)where f=id::a->a}
instance K Float
l a=length$ show a
main=print$ l$ k(0::Float)

Test all GHC extensions on TIO.

\$\endgroup\$
2
\$\begingroup\$

266. HTML+CSS, no JS (Navigator 9), 12540 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     # ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]xx  >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<-'4o'6o@ ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAb
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x 
#  
#
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;ppppppppppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
<script>onload=function(  ){document.body.style.display='block';document.body.innerHTML=typeof InstallTrigger!='undefined'?259:document.documentMode?262:document.querySelectorAll?257:265}</script><style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}@media \0 all{html:after{content:"266"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51 #a",_"[];l{t}8;rext7095?1&&1PLers$/  \nu2FAC0::FloatV$ f Cr=B51 16 4 6>E>83nt:k:2:~-<le._ngtbontgerminPrsharExu Uatafint 22w;ry ctorbody=>+pdisp se66$t$
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z(0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y);x=1;return 0;}__attribute__((destructor))int g( ){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTZ-}import Text.Show.Functions;instance Monoid a=>Monad(Const a)where _>>=_=mempty-- <<<<<<
>instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance IsString Integer where{fromString _=0};instance Num(a->b);instance Num();instance K Float;instance Show(Q a )where{show _=""};f=(^);l a=length$ show a;q _=r$ (d.B )?4;d(B _)=r$ f 0$ f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k=pure$ show(f pi)where f=id::a->a};g=[here|here<-""]--[|] 
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k(0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))-(-q?6+70+z));(!)=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};]  pppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Z222999612#

Try it online!

I downloaded Netscape Navigator 9 from oldversion.com.
JS can be disabled in Tools > Options > Content > Enable JavaScript.

Navigator 9 is based on Firefox 2, so media query hack for Firefox ≤ 3 can be used:

@media \0 all {}

Code in polyglot:

<style>body{display:none}html:after{content:"258"}@media screen and (min-width:0\0){html:after{content:"260"}}@media \0 all{html:after{content:"266"}}</style>
\$\endgroup\$
2
\$\begingroup\$

267. HTML+JavaScript (Opera 9.64), 12500 bytes

#16 "($?63lv+'50;+'51;7 5 %$\24# #@aat"  /*{\D8gv ef26q--[if.q]PkPPXxy)\('#CO^"14"  7 9 7 9                                         7 222222222222222222222222                                               ##*/
#/*1&7//```"`     [>.>        .])[-'][(7       m>77*,68*,R@'_ 7 aat)(22)S ii/ \ipsddpsdoh#####(####### ??  #### ##  ###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5#     202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz coding=utf8 ''53'S^'   #z#111#y#y#y#_#    ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退
#>x   >>IF 2>2*>      18&1&     nthte \#184O@  nthie@O252< nthneo anhet    /112\   #####1#######111#1#1111##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"   ; L       ;    xo--o+++o++\    ;-----########8=,_## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> nM MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMn     # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>#####>## # ##  ## ####
#~// :_   v>>>>>>>>>>> >>>>>/>>>>>>>> MnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM     # ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>                              
#[#[]]xx  >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.----.>>>>>>>_           #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++U+++.._+++++++/._         #
##################################################################################>
 #{{{{]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;;+;;.._]}--<^>++[+++++[>+++++++<-'4o'6o@ ]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$]  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[
#{  
# []-main=-[165]- ###
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTm
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}}  __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  (((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1] in 1)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0*)echo 50;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[3+4*7*@]]]xxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit#ss
ifdef x
#  
#
#  
#
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<-  #32FACREADOUT,2PLEASEGIVEUPFACs
jzaeeaeueew_uuwq seee_epaeeeeeeeeeeee_ecisajjapppppp  ;vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;   %x:
% #>*****[[[[828+*+@+*99]]]]*****<
% # 

😊♈💖  
😇♈♈  
😊♉♈   XX
😇♈♈   +------+XX   X       XXX
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  ***********************************************<>***+
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end      e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+
 -+3o4o#  +
   ++       +
 * *
  +***** %++ %++ @@* %-- @@* %++ %++ @@*
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+           =#
 #^=
+       =#
#  #   #
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
 (printout t 164 )
(exit )  
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}         @,-1,:*b5<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  DIVISION.DISPLAY 230.
#}}}f >>IF 2>2
#}}}e OOO
 xxxd 231
#xx}c uuu
#}}}b
#x}xa
ppppppppppppp;ppppppppppppppp
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
literally, print 249
   
<script>onload=function(  ){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=!/r/.test(f)?267:!/\n/.test  (f )?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258"}@media \0 all{html:after{content:"266"}}@media screen and (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57 ent
set ! 51 #ata",_"[];=[]t}=>+8;dnu?1&&166PLers951 6 4>8370::$/  \0Vngt=BFloatk:pext se>ExPrdispsminhar Cr~-<u Uint 22FACw;re! t$
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""j c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""J c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""JJHajyurbgbgggggggb____o""IJHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Je""JH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77   );}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y);x=1;return 0;}__attribute__((destructor))int g(){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<<<<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTZ-}import Text.Show.Functions;instance Monoid a=>Monad  (Const a )where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z|(∀)<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k(0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))- (-q?6+70+z));(! )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92");return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]print 223;red[ ]print 221
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#:    ~#class C{function:Main  (a:String[])~Nil{83->Print( #~ +/.---.>_/~#);}}
#endcomment K`250
#nocomment outtext("155")
#ce` pS9^7^8^MUOUOF @0:8:8               \@,,1'1'< @125iRE
# | o51~nJ     ;#;#:p'34'3               \=#x=4;  print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|# print(208)#sCOprint("65")#9#
#8M`|  <esc>dggi2<esc>//                 $:~-<~-< ~-<<<~-!`=>$/ass#
# 9//  >>END-IF*>>>* #
# '>+ /' 25  +--[};]  pppppeeee*n*n*n*es*s*s*ee*n^*n*n*e*sss*e*n*n*n*ee*s*   <e 5>1  *///∙226p\)|_|_Z222999612#

Try it online!

I downloaded Opera 9.64 from oldversion.com.

This answer is based on JS hack for Opera ≤ 9.64:

var isOpera = /^function \(/.test([].sort);
             ""+[].sort
Chrome 75:   "function sort() { [native code] }"
Firefox 59:  "function sort() {\n    [native code]\n}"
IE6/11:      "\nfunction sort() {\n    [native code]\n}\n"
Opera 9.64:  "function () { [native code] }"

So Opera 9.64 can be separated with !/r/.test([].sort). After that Chrome can be separated with !/\n/.test([].sort). After that Firefox can be separated with !/^\n/.test([].sort).
These Chrome and Firefox tests are shorter than former ones. Still need documentMode to separate IE6 from IE11.

Code in polyglot:

<script>onload=function(  ){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=!/r/.test(f)?267:!/\n/.test  (f )?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>

Spaces on line 149 are for Retina.

Haskell golf by Ørjan:

  • r$ f 0$ f 2 64r$0`f`f 2 64
  • k=pure$ show(f pi)where f=id::a->ak _=show$ (id::a->a)pi
\$\endgroup\$
8
  • \$\begingroup\$ k=pure$ show(f pi) can be k _=show(f pi), or perhaps even k _=show$ (id::a->a)pi, inlining f. \$\endgroup\$ Aug 3 '19 at 1:20
  • \$\begingroup\$ @ØrjanJohansen Thank you, that works. \$\endgroup\$
    – stasoid
    Aug 3 '19 at 2:57
  • \$\begingroup\$ I thought I was close to adding GNU Pascal, but as it turns out clang, unlike gcc, doesn't allow garbage at the end of GNU line directive: try it online. What a bummer. I also tried // (GNU Pascal supports it): #1"..."3 4//..., but it breaks Befunge-93 (division by zero at second /, can't be avoided). Both clang and gcc allow garbage at the end of standard #line directive, but COBOL prevents using it on the first line. \$\endgroup\$
    – stasoid
    Aug 3 '19 at 3:23
  • \$\begingroup\$ Bonus link: format of GNU line directive. \$\endgroup\$
    – stasoid
    Aug 3 '19 at 3:24
  • \$\begingroup\$ It seems like you might leave out the 4, in which case you could get Befunge to divide the ASCII code of the last character in the string by 3, avoiding zero. \$\endgroup\$ Aug 3 '19 at 4:27
2
\$\begingroup\$

283. Zetaplex, 13260 bytes

#16 "($?63lv+'50;+'51;5 5 %$\--2$[# #@$]aat_"  /*{\D8gv ef26q[if.q8=P,k]PPX~_~^xy)\('#CO|"14"  7 9 7 9                                         7 222222222222222222222222                                      ##*/
#/*1&7//```"`     [>.>        .]~~)['][7aat_                        '(22)Siii/ \psddpsd;oh #####]#######++(- #### ##-[######??mxf####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#111#y#y#y#_# coding=utf8               ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退              @[[[["472"?]]]]******<
#>x   >>IF 2>2*>      18&1&           nthte \#184O@  nthieo  nthneo  anet   /112\    ##### #######   # #    ##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"    xx   ; L         >"082",,,@_   x-----x########    ## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> xxxxxxxxxxxxxx [>]R 10G|'53'S 101111xxxxxxxx # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>##### ## # ##  ## ####
#~// x    v>>>>>>>>@!:!8:6:2/_ xxxxxxxxxxxxx [@,,,"279"]>252O>"01",,@_ 9xxxxxxxxxx #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.-;---.>>>>>_xxxxxxxxxxx #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++++U+.._+++++++._++o+++o--ox #
####################################################################################>
 #{{{{]~*[~*_+++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;; +;;.._]}--<^>++[+++++[>+++++++'4o'6o@<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#{  
# []-main=-[165]- ### M MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}} __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0*)echo 282;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[[3+4*7*@]]]]xxxxxxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89; exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs
jrzaeeaeuee_wuuwq jii_iullluiiiocr se_eeepaeeeeeeeeee;ee ecisajjarpppppp vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;
0 0 
0 0 

😊♈💖  
😇♈♈  
😊♉♈   XX//:
😇♈♈   +------+XX   X       XXX #>*****[[[[828+*+@+*99]]]]*****<
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  **************************************************+  <>
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end       +    e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
 * *
  +*****
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+ OOO       =#
 #^=
+   231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
literally, print 249
(print 164    (exit ) )
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}                      @,,"76"<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
ppppppppppppp;pppppppppppppp
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa




























































































































































































































































































































































22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
<script> onload=function  (){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=/a/.__proto__=='//'?275:!/r/.test(f )?267:!/\n/.test(f)?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258";[;content:"276";]}@media \0 all{html:after{content:"266"}}@media screen and  (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57 ent
set ! 51 ata""[ x];#mint}=>+;dnu1&&1Prers 6 4>80::\0;}ngt=Bk:pext sep*s>Exps94 Cr u Uithw;harc""2:2FACbody/'='d  Float#  +- $;#8;在91
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""CCHafyurbgbgggggggb____o""ICHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Ce""CH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77   );}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__((destructor))int g(  ){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<<<<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTX-}import Text.Show.Functions;instance Monoid a=>Monad  (Const a )where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z|(∀ )<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k   (0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))- (-q?6+70+z));(! )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:   /          
 \?       -/!+++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;$+/ #.---.>/
#s{
endif
#<<<# /<+> /\
"""#"; print(85)
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}} #@[[[["272"?]]]]******<
#endcomment K`250
#nocomment outtext("155")
#/`psZ283MIOnDrFe @,,:1'<  pS9^7^8^MUOUOF
#\!|!o51 @!00:8:8 ;;~nJQ p'34'   \=#x=4;print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print (171)#s-#print 175#s|#print(208   )#sCOprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~-<~-<~ -<<<~-! `=> #
# 9//  >>END-IF*>>>* #
# '>+ /' 25  >[};]+ pppp^peeee*n*\             \n*n*es*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js*<e 5>1  *///\)∙226p|_|_X222999612#

Try it online!

I got interpreter from this site, but it is down now, so I uploaded it here.

Zetaplex is a 2D language with graphical output, like Gammaplex.

Most instructions in Zetaplex consist of two bytes, there are also single byte commands like <>^v\/. Single byte flow control instructions may appear inside two byte instructions, for example MI is equivalent to M>I when IP goes right. Unknown instructions are two bytes long.

Zetaplex takes the path of Haystack. Zetaplex traverses Haystack/Reng/Reticular/PingPong code without any trouble because most of it consists of unknown two byte instructions and numbers. Then it is deflected to the line above, where the main code is situated:

#/`psZ283MIOnDrFe

Accidentally Zetaplex leaves Haystack line between instructions, ie. we are not having a situation where the first byte of some instruction is on Haystack line and the second byte is on Zetaplex line. So `p is the first two byte instruction executed on Zetaplex line (it is unknown and does nothing). After that:

sZ  stack zero
283 push 283.0
MI  math integer  283.0 -> 283
On  output number
Dr  display refresh
Fe  flow end

Without sZ the number would not be printed at (0,0) because there is some garbage on the stack. Also need MI to print 283 instead of 283.0.

Using / instead of > because of Retina 0. Agena comments don't nest, yet another #/ is not a problem.

The ;; on Haystack line: one ; is Reticular exit command, another one is needed to keep PingPong retval zero (alternatively, @!0000:8:8 could be used instead of @!00:8:8).

Note: LMBM marble from Zetaplex code and the first marble from RunR code are currently not destroyed explicitly.

\$\endgroup\$
2
\$\begingroup\$

285. Befunge-98 (cfunge), 13300 bytes

#16 "($?63lv+'50;+'51;5 5 %$\--2$[# #@$]aat_"  /*{\D8gv ef26q[if.q8=P,k]PPX~_~^xy)\('#CO|"14"  7 9 7 9                                         7 222222222222222222222222                                      ##*/
#/*1&7//```"`     [>.>        .]~~)['][7aat_                        '(22)Siii/ \psddpsd;oh #####]#######++(- #### ##-[######??mxf####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#111#y#y#y#_# coding=utf8               ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退              @[[[["472"?]]]]******<
#>x   >>IF 2>2*>      18&1&           nthte \#184O@  nthieo  nthneo  anet   /112\    ##### #######   # #    ##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"    xx   ; L         >"082",,,@_   x-----x########    ## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> xxxxxxxxxxxxxx [>]R 10G|'53'S 101111xxxxxxxx # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>##### ## # ##  ## ####
#~// x    v>>>>>>>>@!:!8:6:2/_ xxxxxxxxxxxxx [@,,,"279"]>252O>"01",,@_ 9xxxxxxxxxx #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.-;---.>>>>>_xxxxxxxxxxx #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++++U+.._+++++++._++o+++o--ox #
####################################################################################>
 #{{{{]~*[~*_+++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;; +;;.._]}--<^>++[+++++[>+++++++'4o'6o@<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#{  
# []-main=-[165]- ### M MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}} __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0*)echo 282;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[[3+4*7*@]]]]xxxxxxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89; exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs
jrzaeeaeuee_wuuwq jii_iullluiiiocr se_eeepaeeeeeeeeee;ee ecisajjarpppppp vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;
0 0 
0 0 

😊♈💖  
😇♈♈  
😊♉♈   XX//:
😇♈♈   +------+XX   X       XXX #>*****[[[[828+*+@+*99]]]]*****<
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  **************************************************+  <>
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end       +    e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
 * *
  +*****
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+ OOO       =#
 #^=
+   231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
literally, print 249
(print 164    (exit ) )
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}                      @,,"76"<>␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
ppppppppppppp;pppppppppppppp
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa




























































































































































































































































































































































22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
<script> onload=function  (){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=/a/.__proto__=='//'?275:!/r/.test(f )?267:!/\n/.test(f)?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258";[;content:"276";]}@media \0 all{html:after{content:"266"}}@media screen and  (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57 ent
set ! 51 ata""[ x];#mint}=>+;dnu91&&1-2Prers 6 4>80::\0;}ngt=Bk:pext sep*sExps94 Cr u Uithw;harc""2:2FACbody+/='d  Float#  +- $;#8;在e*n*    
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""CCHafyurbgbgggggggb____o""ICHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Ce""CH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77   );}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__((destructor))int g(  ){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<<<<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTX-}import Text.Show.Functions;instance Monoid a=>Monad  (Const a )where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z|(∀ )<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k   (0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))- (-q?6+70+z));(! )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:  /          
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;$+/ #.---.>/
#s{
endif
#<<<#/<+>/\
"""#"; print(85)
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}} #@[[[["272"?]]]]******<
#endcomment K`250
#nocomment outtext("155")
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;@,,,"285_";# k-'1:,,@_ pS9^7^8^MUOUOF
#\!|!o51 @!00:8:8 ;;~nJQ p'34'   \=#x=4;print(1>>-1<2 ? 17 :  Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|#print(208   )#sCOprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//   >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^e*n*\             \n*n*es*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js*<e 5>1  *///\)∙226p|_|_X222999612#

Try it online!

k with a negative argument reflects in cfunge, but passes through in FBBI:

@,,,"284_"># 01-:2/_;@,,,"285_";# k-'1:,,@_

Argument for k is created by the first :, - next to k is just a dummy.

\$\endgroup\$
2
\$\begingroup\$

286. Trefunge-98 (CCBI), 13300 bytes

#16 "($?63lv+'50;+'51;5 5 %$\--2$[# #@$]aat_"  /*{\D8gv ef26q[if.q8=P,k]PPX~_~^xy)\('#CO|"14"  7 9 7 9                                         7 222222222222222222222222                                      ##*/
#/*1&7//```"`     [>.>        .]~~)['][7aat_                        '(22)Siii/ \psddpsd;oh #####]#######++(- #### ##-[######??mxf####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#111#y#y#y#_# coding=utf8               ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退              @[[[["472"?]]]]******<
#>x   >>IF 2>2*>      18&1&           nthte \#184O@  nthieo  nthneo  anet   /112\    ##### #######   # #    ##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"    xx   ; L         >"082",,,@_   x-----x########    ## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> xxxxxxxxxxxxxx [>]R 10G|'53'S 101111xxxxxxxx # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>##### ## # ##  ## ####
#~// x    v>>>>>>>>@!:!8:6:2/_ xxxxxxxxxxxxx [@,,,"279"]>252O>"01",,@_ 9xxxxxxxxxx #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.-;---.>>>>>_xxxxxxxxxxx #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++++U+.._+++++++._++o+++o--ox #
####################################################################################>
 #{{{{]~*[~*_+++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;; +;;.._]}--<^>++[+++++[>+++++++'4o'6o@<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#{  
# []-main=-[165]- ### M MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}} __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0*)echo 282;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[[3+4*7*@]]]]xxxxxxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89; exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs
jrzaeeaeuee_wuuwq jii_iullluiiiocr se_eeepaeeeeeeeeee;ee ecisajjarpppppp vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;
0 0 
0 0 

😊♈💖  
😇♈♈  
😊♉♈   XX//:
😇♈♈   +------+XX   X       XXX #>*****[[[[828+*+@+*99]]]]*****<
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  **************************************************+  <>
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end       +    e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
 * *
  +*****
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+ OOO       =#
 #^=
+   231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
literally, print 249
(print 164    (exit ) )
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}             @,,,"286"_+1y2 #<"67",,@␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
ppppppppppppp;pppppppppppppp
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa




























































































































































































































































































































































22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
<script> onload=function  (){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=/a/.__proto__=='//'?275:!/r/.test(f )?267:!/\n/.test(f)?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258";[;content:"276";]}@media \0 all{html:after{content:"266"}}@media screen and  (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57 ent
set ! 51 ataw;#8;""[ x]mint}=>+;dnu91&&1Prers 6 4>80::\0;}ngt=Bk:pext sep*sEx94 Cr u Uitharc""2:2FACbody+/='d  #  +- $在e*n*""; 16 ""6 
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""CCHafyurbgbgggggggb____o""ICHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Ce""CH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77   );}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__((destructor))int g(  ){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<<<<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTX-}import Text.Show.Functions;instance Monoid a=>Monad  (Const a )where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z|(∀ )<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k   (0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))- (-q?6+70+z));(! )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:  /          
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;$+/ #.---.>/
#s{
endif
#<<<#/<+>/\
"""#"; print(85)
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}} #@[[[["272"?]]]]******<
#endcomment K`250
#nocomment outtext("155")
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;@,,,"285_";# k-'1:,,@_ pS9^7^8^MUOUOF
#\!|!o51 @!00:8:8 ;;~nJQ p'34'   \=#x=4;print(1>>-1<2 ? 17 :  Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|#print(208   )#sCOprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//   >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^e*n*\             \n*n*es*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js*<e 5>1  *///\)∙226p|_|_X222999612#

Try it online!

We already have Trefunge-98 answer (#76), it uses PyFunge interpreter.

PyFunge uses Python's arbitrary-precision integers, and 2y returns cell size -1 (infinite). CCBI uses machine integers. So PyFunge and CCBI can be separated with 2y1+_:

@,,,"286"_+1y2 #<"67",,@
\$\endgroup\$
2
  • \$\begingroup\$ Milo's Wierd may be preventing GNU Pascal from being added. I deleted answers 287 John's Wierd and 288 Milo's Wierd until I find out the details. \$\endgroup\$
    – stasoid
    Jul 25 '20 at 15:49
  • \$\begingroup\$ Yep, they clash. So the Wierd answers will remain deleted, I'll add Pascal instead. \$\endgroup\$
    – stasoid
    Jul 27 '20 at 21:51
2
\$\begingroup\$

287. Refunge, 13305 bytes

#16 "($?63lv+'50;+'51;5 5 %$\--2$[# #@$]aat_"  /*{\D8gv ef26q[if.q8=P,k]PPX~_~^)"xv"y\('#CO|"14"  7 9 7 9                                      7 222222222222222222222222                                      ##*/
#/*1&7//```"`     [>.>        .]~~)['][7aat_                        '(22)Siii/ \psddpsdoh ;#####]#######++(- #### ##-[######??mxf####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz #z#111#y#y#y#_# coding=utf8               ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退              @[[[["472"?]]]]******<
#>x   >>IF 2>2*>      18&1&    nthteo nthie \#184O@  nthneo anet    @.7.8.2 /112\ <  ##### #######   # #    ##### h#115#  o#    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#W\aa*7+42@n;WWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
# 36!@`D//<> ++++++::@\_       / 78"oo@"    xx   ; L         >"082",,,@_   x-----x########    ## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
#comment -[v]>>>>>>>>> >>">r"{\>>>>>> xxxxxxxxxxxxxx [>]R 10G|'53'S 101111xxxxxxxx # ##########>>###>##>#####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>##### ## # ##  ## ####
#~// x    v>>>>>>>>@!:!8:6:2/_ xxxxxxxxxxxxx [@,,,"279"]>252O>"01",,@_ 9xxxxxxxxxx #  ????!?!??!??!!!!???!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                
#[#[]]x   >>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>R.-;---.>>>>>_xxxxxxxxxxx #v
#- ! ++R+++  +++++++++\++++++++++++++++++++++++++++++++++U+.._+++++++._++o+++o--ox #
####################################################################################>
 #{{{{]~*[~*_+++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+;; +;;.._]}--<^>++[+++++[>+++++++'4o'6o@<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#{  
# []-main=-[165]- ### M MMMMMMMnnMnnnMnMMMMMMMnMMnnnnnMMnMnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM
#*  //:1*23/5x%6E2
#cs  
#2""/*  
#|9999 9 9
#9 999 99 9999 9
#`⟪`⟪\⟫9
#<<<# 9 9999 bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24; exit}} __END__/
###\MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
'wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;WW;w_;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1*)echo 242;;4*)echo 78;;8*)echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0*)echo 282;;*)echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[[3+4*7*@]]]]xxxxxxxxxxxxxxxxxxxxxxx
###;{a='//'}={a:null};console.log a&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89; exit#ss
ifdef x 
#  
#  
#  
#  
# *#p 173#* //:
p now 70 dollar off!
p has been selling out worldwide!
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs
jrzaeeaeuee_wuuwq jii_iullluiiiocr se_eeepaeeeeeeeeee;ee ecisajjarpppppp vwWWWw⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
write 224;Bye ;
0 0 
0 0 

😊♈💖  
😇♈♈  
😊♉♈   XX//:
😇♈♈   +------+XX   X       XXX #>*****[[[[828+*+@+*99]]]]*****<
😇♈♉   |/0110@| X X  XXXXXXXXX X
😇♈💜  |/0011 | X X   XXXXXXX
😊♉♈   |/0010 | X
😊📢♈  |/0011 | 
😈♈💜  |/0001 | 
😊📢♈  |/$0011| 
😇♉💞  +------+ 
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
1<<<< ! !
2<<<!<   !
1+``  +!!
1=  *
53  +
1>  *
51  +
#
1+  *     xx+   x  x
49 x+  xx+xxx+  x+x + x B+ ===+
x= xx x  x===  x x >8 xxx +++= +
x+  +x + x,_8=>+ xB  x+x
x==+R _*=x==  x +x==+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
`+ x`=>8=x>  x+~ x  x +x+B+
x  +====+x>~+B+= x x + x
xD~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"_     !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#  +
+ *   +
#  + *
  **************************************************+  <>
  +  +$$$
  <>"3"_O._+// rk:start | print: "69" rk:end       +    e$P+++++*D*+++1++1E!s
   +   +;*
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
 * *
  +*****
#= #= #=+
^#
 #+=    #
,   #
,,  .=#
 #+ OOO       =#
 #^=
+   231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
#  
literally, print 249
(print 164    (exit ) )
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}                @,,,"286"_+1y2 #<"67",,@␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run(putStr"159"  )
\end{code}
ppppppppppppp;pppppppppppppp
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa




























































































































































































































































































































































22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
<script> onload=function  (){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=/a/.__proto__=='//'?275:!/r/.test(f )?267:!/\n/.test(f)?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258";[;content:"276";]}@media \0 all{html:after{content:"266"}}@media screen and  (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
~~~x
main:Int
main =248
~~~ 
out &49 &1
out &56 &1
out &50 &1
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57 ent
set ! 51 ataw;#8;""[ x]mint}=>+;dnu91&&1Prers 6 4>80::\0;}ngt=Bk:pext sep*sEx94 Cr u Uitharc""2:2FACbody+/='d  #  +- $在e*n*""; 16 ""6
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet */
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""CCHafyurbgbgggggggb____o""ICHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Ce""CH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=! '(',y[60];macro m( ){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77   );}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y );x=1;return 0;}__attribute__((destructor))int g(  ){x?0:puts("198");}//())*/
#1""/*/
`WWWWwWWWWWWwWWWWWWWWwWWWWWWWWWWwWWWWWWWWWWWWWWWW. :-write(186). end_of_file. `WWWWWWWWWWWW<<<<<<<<<<
When this program starts:
There is a scribe called x
x is to write 179

>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;{-_vwWWQTkTTX-}import Text.Show.Functions;instance Monoid a=>Monad  (Const a )where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d(B _)=r$0`f`f 2 64;class(Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z| (∀)<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,(0`id`),k   (0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h(0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))- (-q?6+70+z));(! )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
 console.log 178;
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
#endif
p=sizeof("(\");print'(''72'')';end !");main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
print 61
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:  /          
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;$+/ #.---.>/
#s{
endif
#<<<#/<+>/\
"""#"; print(85)
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}} #@[[[["272"?]]]]******<
#endcomment K`250
#nocomment outtext("155")
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;@,,,"285_";# k-'1:,,@_ pS9^7^8^MUOUOF
#\!|!o51 @!00:8:8 ;;~nJQ p'34'   \=#x=4;print(1>>-1<2 ? 17 :  Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2)#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>/#print(171)#s-#print 175#s|#print(208   )#sCOprint("65" )#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//   >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^e*n*\             \n*n*es*s*s*ee*n*n*n*e*sss*e*n*n*n*ee*js*   <e 5>1  *///\)∙226p|_|_X222999612#

Try it online!

Before executing any code Refunge processes labels (..) and string literals {..}. This is done regardless of the position of double quotes. First ( on line 1 starts a label which ends at the next ). When execution reaches the place of ) the program is still in string mode because second " is part of label name. All we have to do is to leave string mode and send the IP down: "v.

Main code is on line 3:

@.7.8.2

Moved xy around v to fix AlphaBeta and Beatnik.

\$\endgroup\$
2
\$\begingroup\$

289. Befunge-98 (efunge), 13510 bytes

# 6 "($?63_lv+'50;+'51;5 5 %$\--$[250=@$]aat\" a/4*DvehfbIg/\"" 3 4//*26qkp16*^[.qx]"[8=,k]Pk PPX~_~)"xvy"\( 7# CO|"14" #:7 9 7 9                      7 222222222222222222222222                        "'" # ##\\
# 1"7"//['][']     ````      [>.>.?]~~)[7aatxy\#184  O@              (22)Siii/ \psddpsdoh ]##### #######++(- #### ##-[###### mxf ####xAegguEay######i#u####Ft#######MZWWW####WWWWWW zR###### # ####  #######:_a5# 202ø!},{P_<Ám/e!<ÁmOe!<É}M<ÁmS15%!!%BB44,222%!!%BBPZPYAAA4D,5P[5?4-0!<½!!22<2/!]ss1]'[kkX"204".â'_PPQss 7 999993 1 7 3 1 8 1 1 55 k zzzzkf kf k zzzzzd kf k zzzzza kf bfz 2#z#111#y#y#y#_# coding=utf8             ! 1>?7ДOq#t#>2/Wr#t#t#q#68#r#t#t#68#q#63#r#t#t#6v#>#</Wr#6}#y/===Wr#7ЯOq#>J7Д/Wr#y<Wr#>5/Wr#t#t#6y#>-=/Wr#6|#>6/Wr122! 1退                 @[[[["472"?]]]]******<
# if-0//               18&1&  nthteo nthieo nthneo  a;net R[+++].----._     /112\    ##### #######   # #    #####; #   #   #    ##### ####  ###   #### # W#W#####WW#WWWW#####W####WW###WWW####W#WW#W#####WW#WWWW#WWWWWWWWWWWWWWWWWWWW;WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWR
#6!@eD>>if 2>2*>++++++!\::    @_/ 78"oo@"   '\"' ` L       >"082",,,@_ 1   x-----x########    ## ### ###### ######## #### ##### ####### ##### ###    # # #### ### ##### ####### ##### ###    # # #### ### ##### #EEEEEδΘΔΔΔΘΔΘλ
# endif/*[(*)]v_>>>>>>> >>">r"{\>>>> @ 0:8:8/_>>>> [>]R 10G|'53'S 11111111111      # ##########>>###>## #####>>##>####>##>#>#####>>##>#####>####>>>#####>##>#>##>>##>####>>##>#####>####>>>##### ## # ##  ## ####
#comment -[v] >>>>>>>>                     [@,,,"279"]>252O>"01",,@_ 9 h$s o#      # ????!?!??!??!!!!??   ?!?!??!!?!?!!!!!?!!!!?????!????????????????????! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                
#[#[/e]]   >>>>>>>>>@!:!8:6:2/_ >>>>>>>>>>>>>>>>>>>>>>>>  ;>>>>>>>>>>>>>>>>>>      #v           @.7.8.2<
#- [!R++++++] +++++++++\++++++++++++++++++++++++++++++++++U.._+++++++._+++o+++o--ox#
####################################################################################>
 #{{{{]~*[~*__+++++++[>+++++++<-]>+._+++++._+._@]+-}}[.^+;;+;;+;;+<>;;+;;+;;+;;;;;;+; ;+;;.._]}--<^>++[+++++[>+++++++'4o'6o@<-]>._++++._+++._^<]+-+<[<=oC<=oC<._>>>>-]^>[<+++++[>++++++++++<-]>@@+.---@._+>$] )++$--![+++[>+++++++<-]>+._+++++.._>](  <<>> }<}>}[<}}<<}<<<<<}<<}<<<<}<<<}}}<}}<}}<}}<}}<}}<}}}<}}<<<<<<<<<<<}}}<}}<}}<}}<}}<}}<}}}<<<<<<<<<<}]  >>\[/>\/\>>>>>>>]>\[./>>\/\./\/>>>\./]  [[[
#~  n MMMMMMM MnnMnnnMnMMMMMMMnMMnnnnnMMnMnMnnMnMnnnnnnMnMnMMMMMMMMnnMnMnnnMnMMMM
#*  e:1*23/5x%6E2  []-main=-[165]- ###
#|9999 9 9
#/9 999 99 9999 9
#9"" /* *#p 173#*
#cs !9 9999
#<<<#
#{   
#`⟪`⟪\⟫ bqbqbqLzLzLzqtqtqtTcTcTcRqRqRq TzTzTzRtRtRtMbMbMbPsPsPsTqTqTqAbAbAbTmTmTmBqBqBqMtMtMtUgUgUg
#=  ($?$?0l0v01k1k0l0i 0r 0h0h1d111 0e 0y0y 0mo1d0y0e0e001d0i0f 0g 0n0n110mo0n0t 0t0mo0f0t0g0g0f0h0r0r0i0001k10v 0v0l11110000011100|_ )\
[ '`e```.1.0.6i_]56pq['];#/\\/;print 24;exit}}__END__/
### \MoOMoOMoOMoOMOOmoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOMoOmOoMOomoomoOOOM\// >+@+-@@@@=>+<@@@=>+<?#>;?\:-._++._++++._#/<?\>3-++._6+---2._#/++++++++++++++++++++++++++++++++++++++++++++++++._++._++++++.>!\
' wWWWw;WW;WW;wv;w;;WW;wW;WW;wv;wW;_W;Ww;WW;WW;WW;WW;wW;WW;Ww;W;WW;WWWWwW;;;W\W/WWWWWwwwwvwWWWwWWWWwvwWWwW\WWwvwWWwWWWwvwW/Ww\WWW ho ho ho ho // ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho ho hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi hi MU ([])  ({}<(((((()()())){}{})){}{})>)(({})){}{(<(<()>)({})({}<{}>({}){})>){({}[()])}}({}){}({}()<()()()>)  (<><()>){({}[()])}{  #(((()()()()())()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()())(()()()))  ((((((((\';  a=$(printf \\x00);b=$(echo -n $a|wc -c);case $b[1]¢ in 1?)echo 54;;1* )echo 242;;4* )echo 78;;8* )echo $((9999999999999999999>0?166:244));;0?1??)echo 50;;0* )echo 282;;* )echo 58;;esac;exit;#)';  print (0and eval('":"&&(defined?pp)&&190||(defined?__dir__)&&13||"_"[0]==95&&108||110')or(None and(-1 %2>0and 9or 247)or 1/2and eval('hasattr(zip,"iters")and 200or\'𒁁\'=="-"and 241or 1')or 5<<64>>64or 68));"${print(g+91)}$/";exit; "$'#{print(187);exit}'$/"; #< ?>wWWsssss {}#(prin 45)(bye){{}#}#(prin 199)(bye) 46(8+9+9+9+9+=!) >* * * * *[[[[3+4*7*@]]]]xxxxxxxxxxxxxxxxxxxxxxxx
###;{e=1}={e:null};console.log e&&39||180;\
__DATA__=""" " 
#  \
__END__
set pr'[puts 59][exit]\'':;@echo 185 #';set pr'-';pr 89;exit
ifdef ss 
#  
#  
#  
#  
#  
#  
#  
#PLACET,2<- #2FAC,2SUB#1<- #52FAC,2SUB#2<- #32FACREADOUT,2PLEASEGIVEUPFACs wwwwwwwwwwwWWWwWWWWWwWWWWWWWwWWWWWWWWWwWWWWWWWWWWWWWWWwWWWWWWWWWWWWw W
jrzaeeaeuee_wuuwq jii_iullluiiiogr se_eeepaeeeeeeeeee;eeecisajjarpppppp ⠆⠄⡒⡆⡘😆😨😒😨💬95💬👥➡😻😹😸🙀🙀😹😼😿🙀🙀😼😼😸🙀🙀🙀🙀
👋🔢🌚🌝🌝🌚🌚🌚🌚🌚🐸🐸🐸🐸🐸🐸😂😂😂😂😂😂😂🌚🔥😂😂😂😂😂😂😂💯💩🐸🔥😂💞💩💞😂😂😂😂💞🔥🌚▲▲▲²²²²▲¡▼¡▲▲¡⎚¿⁵228¦→ₔ₁₉₃2♦10♦10♦10♥☰䷩䷏䷏䷨䷏䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩䷩⚎ֱֲֵֶֶֶֶַַַָָ  
밠밠따빠빠맣박다맣받다맣희맣희吾有一數曰二百八十一書之うんたんたんたんたんうんうんうんうんうんたんうんうんうんたんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんたんたんうんうんうんうんたんたんうんたんたんたんうんうんうんたんうんうんたんうんうんたんうんうんたんうんたんうんうんうんたんたんうんたんたんうんたんたんうんたんたんうんたんたんたんうんうん  
😊♈💖  
😇♈♈  
😊♉♈  
😇♈♈  
😇♈♉  
😇♈💜  
😊♉♈  
😊📢♈  
😈♈💜  #e:>* * * * *[[[[828+*+@+*99]]]]* * * * *<
😊📢♈  
😇♉💞  
😊📢♉🐸⠀⢃⠛⠋  
#-49,A,-1                              #
#-5,A,-1                               #
#6,A,-1                                #
#  
XX  
x+------+XX   X       XXX
x|/0110@| X X  XXXXXXXXX X
x|/0011 | X X   XXXXXXX
x|/0010 | X
x|/0011 | 
x|/0001 | 
x|/$0011|  
x+------+  
1     ! !
2   !    !
1+    +!!
1#  *
53  +
#  
1+  *        +
51  +
#  
#  
1   *     x``   x  x
49 #+  xx+x=>+  x+x + x B+ ===+
#  =x x  x===  x x >8 xxx +++= +
#+  +x + x,_8=>+ xB  x+x
# =+R _*=x==  x +===+> x x    +
 x +R"12"+8=Dx B=xD +  + xxx+
#+ ``=>8=x>  x+~ x  x +x+B+
#  +====+x>~+B+= x x + x
#D~+x 8=++>8x +=   x+    +,_   +
15 + x   x  + +  xx   +  ?   ?@  %"18"      !
1  + x   + x ++  xx   + ?@    ?
1 \+* x    +  +  x    +   +   *
1   ! x  +x   +       + ?  !  ?
1    ! x xx --... ...--  ? @ ?
x +   ++ xx  ++ ++     +
 +xxxxx  +     +
  
#= +
+ *   +
#= + *
#=**************************************************+>                                            @,,,"286"_+1y2 #<"67",,@␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␌␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋␋
  +  +$$$
#>"3"O._   +// rk:start | print: "69" rk:end       + e$P+++++*D*+++1++1E!s
   + ; + *
$'main' *****+ %++ %++ @@* %-- @@* %++ %++ @@*
 -+3o4o#  +
  <++"269">o+
^* *
 #+*****|
.x= #   +
,,  .=#
 #+ OOO       =#
 #^=
+`` 231 =#
#  #uuu#
,,..,.,,,,..,.,.,,..,,.,,,...,,.,,..,,,,,,..,,,.$
  
write 224;bye; 
  
 console.log 178;
  
~~~x  
main:Int  
main =248 
~~~  
literally, print 249
(print 164     (exit ) )
 (   *)
begin write         ('288'    )end.(*)
print 61
#ceppp  
MsgBox (0,"",169   )
#cs  
T:251  
E:0  
Yo::=~147
::=  
You can see an x here.<<  
  
>{-<<<<<  
> 176
>> Output 1
>SET x TO 120. [0]{472454523665721469465830106052219449897}  `. :-write(186). end_of_file. `
>X x.   ;-}
>l=length$show"\0";main=print$[0,0,0,233,0,146,157]!!l{-
  
\begin{code}  
{- ;  ␉␉␉␉ 
␉
 ␉  



-}
open import IO;main = run (putStr"159" )
\end{code}
ppppppppppppp;pppppppppppppp
# {{{ {{{ {{{ {{
#!ZZt >>END-IF
#xxxh  program-id.h.procedure
#xxxg  diVision.display 230.
#}}}f >>IF 2>2
#}}}e
#xxxd
#xx}c
#}}}b
#x}xa











































































































































































































































































































































<script> onload=function   (){d=document;f=[].sort;d.body.style.display='block';d.body.innerHTML=/a/.__proto__=='//'?275:!/r/.test  (f  )?267:!/\n/.test(f)?257:!/^\n/.test(f)?259:d.documentMode?262:265}</script>
<style>body{display:none}html:after{content:"258";[;content:"276";]}@media \0 all{html:after{content:"266"}}@media screen and  (min-width:0\0){html:after{content:"260"}}</style>
<attache>Print[194]Exit[]</attache>
 
22-23-31-13-13-31-13-13-31-13-13-31-13-13-31-12-12-23-31-13-13-31-13-13-31-13-13-31-13-13-31-21-22-21-12-32
Take Northern Line to Tooting Bec
Take Northern Line to Charing Cross
Take Northern Line to Charing Cross
Take Northern Line to Bank
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Embankment
Take Bakerloo Line to Embankment
7 UP
Take Northern Line to Mornington Crescent
7 RIGHT
7 RIGHT
7 TEACH
6 BOND
6 BOND
6 BOND
5 RIGHT
5 LEFT
5 RIGHT
7 BOND
7 TEACH
5 TEACH
6 YELL
5 TEACH
6 YELL
6 YELL
#  ;
set ! 57
set ! 51
out &49 &1
out &56 &1
out &50 &1
When this program starts:
There is a scribe called x
x is to write 179

p now 70 dollar off!
p has been selling out worldwide!
More 91 of this
How much is it
red down one blue up red down one blue up red up one red right two blue up
baa baaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa bleeeeeeeeeeeeet bleeeeeeeeeeeeet bleeeeeeeeeet baaaa bleet bleeeeeeeeeet bleeet bleeeeeeeeeet
#
ata#8;mint};dnu91&&1Prers>80::\0}ngt=Bk:pextsepsEx94 Cr u Uitharc""2:body+/+--- $在5"" 16 ""6int 21*F 4, _._#a*een gi>/=[]putsR 8ogrFloat 
ent
*/
 
#1""
#if 0
.int 2298589328,898451655,12,178790,1018168591,84934449,12597
#endif//*
#1""//*:
#include<stdio.h>
#define z(a) #a
#define u "e"//"
const char*i="24 10 31 1""a c #FFC0FF""B c #0000C0""d c #58007B""e c #0C8302""o c #FF8000""t c #FF00BC""u c #008080""h c #E60001""i c #CAFFFF""f c #280000""k c #CA0000""l c #CA007F""n c #330001 ""q c #E60000""A c #0040C0""E c #808000""F c #00C040""G c #008000 ""R c #800000""H c #0000AA""I c #00AA00""C c #55FFFF""K c #AAAAAA""r c red""g c green""b c blue""c c cyan""m c magenta""y c #FFFF00""x c black""_ c #FFFFFF""HHHahtdegggggggyrggggggc""IHHaixuEFbGGbggbryAEGRgc""CCHafyurbgbgggggggb____o""ICHakmyyyyyyyyyyyyyyyyye""I__almyyyyyyyyyyyyyyyyye""K__anmyyyyyyyyyyyyyy_y_e""HH_aqggyyyyyyyyg____m_Ce""CH_axxxxxxxxxxxxxxxxxxxx""K__aaaam___bbbbbBm_bbBab""K__________bbbbb___bbxbb";//"
typedef int known,macro;int x=!  '(',y[60];macro m(){0;}int f(int a,...  ){y[x=0]=x=72;printf("\x25i",!m?195:!a?124+x:sizeof' '-1?(1&*z(N)?234:"\??-"[1]?218:67^*u""):*u""?37:z (0'0  0'0 )[7]?75:"\??-"[1]?77+a/2:77);}__attribute__((weak))int main(){known y;int i;f(x,x=sizeof y);x=1;return 0;}__attribute__((destructor))int g(){x?0:puts("198");}//())*/
#1""/*/
<<<<<<<<<<WQTkTTX
 
 
>import Prelude;import GHC.IO;import Data.Functor.Const;import Data.String;import Text.Heredoc;import Control.Exception;import Language.Haskell.TH;import Text.Show.Functions;instance Monoid a=>Monad (Const a)where _>>=_=mempty
>instance K Float;instance IsString Integer where{fromString _=0};instance Num B where fromInteger _=B 170;negate _=B$ x#x
>data B=B{u::Int};e=error"#"; f?n=unsafePerformIO$ f e`catch`\ErrorCall{}->r n;instance Num(a->b);instance Num();instance Show(Q a )where{show _=""};f=(^);q _=r$ (d.B)?4;d (B _ )=r$0`f`f 2 64;class (Show a,Floating a)=>K a where{k::a->String;k _=show$  (id::a->a)pi};g=[here|here<-""]--[|]
>;
>x=0;y#a=subtract 0b1206;x#a=174;h b=b^x;r=pure ;l a=length$ show a;forall=0;z| (∀)<-5=forall;b1206|let _._=x;negate _=3=[246,264,0,263,261,232,222,209,210,128,206,207,214,211,212,217]!!(l("  ",0x0.1,1e1,  (0`id`),k(0::Float),toEnum 0::Num a=>Enum a=>a)+2*l(do a<-Const[1];pure a,h pi,h (0::Real a=>a))- 3*(l$(pure$TupE[]::ExpQ))-(-q?6+70+z));(!  )=seq
>;
>main|let p!_=0=print$ sum[0!61,{-_-}last$172:[u$[-1]!!0|g<">"]]--} 
 
#1""/*/
#if 0
#endif//*
/*/
#if 0
p;
select 192;
.exit
#endif
p=sizeof("   (\");print'(''72'')';end !" );main(){puts('??-'&1?"101":"92" );return 0;}
#if 0
#endif//*
#}
disp 49
#{
}{}<>           K yya+-        &  g+$
 /._++.._# !._++.-.>@    A=AgRA;       AC
#:  /          
 \?     -/!  +++++++++++++++++++++++++++++++++++++++++++++++++<>^+++++<\>+++.-.
rebol[ ]prin either Value? 'disarm[223][270];red[ ]prin 221;$+/ #.---.>/
#s{
endif
#<<<#/<+>/\
"""#";   print(85) #@[[[["272"?]]]]* * * * * *<
#ce:  ~#class C{function:Main(a:String[])~Nil{83->Print();}}
#endcomment K`250
#nocomment outtext("155" )
#/`psZ283MIOnDrFe @,,,"284_"># 01-:2/_;:@,,,"285"_+1y2"982"2k,# @#;# k-'1:,,@_  pS9^7^8^MUOUOF
#\!|!o51   ;        ~nJQ  p'34'  \=#x=4;print(1>>-1<2 ? 17 : Inf16-0|>sizeof>2 ? 162 : √4x<8 ? 201 : 225+2>>1*2 )#p⟫try {EVAL 'say 「27」;exit'};say 237#⟫say 167#{{p{{}}}}say 235#]#print(47)#]#echo 21#>         :/aa*7+42@n;/#print(171)#s-#print 175#s|#print(208)#sCOprint("65")#ERi521@<[[["172"?]]]]* * * * * *<es9#
#8M`|  <esc>dggi2<esc>// :~- <~-< ~-<<<~-! `=> #
#1//  >>END-IF*>>>9#
# '>+/*' 25  >[};]+ pppppeee^e*n*\              \! 99n*n*es*s      \*s*ee*n*n*n*e*sss*e*n*n*n*ee*js "( *)//dd"    <e 5>1  */// \)∙226p|_|_X222999612#

Try it online!

efunge takes the same path as cfunge. They are split using 2y (efunge uses Erlang's arbitrary precision integers, cell size is -1):

:@,,,"285"_+1y2"982"2k,# @#

: is for Chip.

Test driver updates:

  • First argument: language number to start with
  • Second argument: list of languages to test