(set'*print-right-margin*(read))(loop(doseq(x(#1=asdf::split(remove #\)(format()"~A"(#1#(read-line))))99" "))(write-line(subseq x 1))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page