: a 2 -1 do dup 0 do over dup i + c@ swap c@ over 2dup > -rot < - j = if emit 0 then drop loop loop ; pad dup 300 stdin read-file + a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page