(use srfi-13)(while #0=(read-line)(let((s #0#)(\(read)),display)(dotimes`(abs\),(if(>\ 0)s(string-reverse s))),"
"(read-char)))