(do'(y 0 x)((format t"~V@{~:[-~;+~]~:*~}."(abs(-(set'x(char-int(read-char)))y))(> x y))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page