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