(use srfi-13)(while #0=(read-line)(let((s #0#)(\(read)),display)(dotimes`(abs\),(if(>\ 0)s(string-reverse s)))," "(read-char)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page