(while((^,n,(ash n -2),(mod n 4))(^i(display(~" .#
"i)))(digit->integer(read-char)16)))