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