word block by kaki

((rec(f\ i)(~\ 0)(print\)(f(#0=regexp-replace-all" +$"(#0##`"(?<!\\S)\\S{,i}(?!\\S)"\(make-string i))"")(+ i 1)))(read-line)1)

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

download

return to the top page