((rec(f s i)(~ s 0)(print s)(f(#0=regexp-replace-all" +$"(#0##`"(?<!\\S)\\S{,i}(?!\\S)"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