Wrap Words FIXED by youz

(loop(set'c 80)(doseq(w(asdf::split(read-line))(terpri))(format t"~:[ ~;~&~]~A"(if(>(incf c #1=(1+(length w)))#.(read))(set'c #1#))w)))

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

download

return to the top page