Bracket Matching by yshl(not bin)

9/f(%stdin)(r)file def/a{/c f read{def c c 7 mod 2 and 2 eq{xor 7 gt{(failed at: )print(EOL)c 10 ne{f c unread f 127 string readline pop}if = clear 9}if count 0 eq{(yes)= 9}if}if a}if}def a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page