join lines by 51b

: a
begin
key dup 1+ while
dup 10 <> if emit then
repeat
;
a

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

download

return to the top page