expand text by kozima

(setf n(read)i(read-line))(dotimes(a n)(doseq(c i(terpri))(format t"~V,,,VA~C"(1- n)(if(< 0 a(1- n))#\  c)c c)))

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

download

return to the top page