box world by youz

(setq s(princ(read-line))i(length s)l(1- i))(doseq(c s)(format t"~C
~C~[~*~A~:;~V@{ ~}~]"c(char s(decf i))i l(reverse s)))

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

download

return to the top page