(format t"~V@{+~}."(char-int(read-char))t)