(loop(format t"~*~C~2:*~C"#1=(read-char)#1#))