(do'(y 0 x)((format t"~V@{~:[-~;+~]~:*~}."(abs(-(set'x(char-int(read-char)))y))(> x y))))