(loop(format t"~@{~[ ~;.~;#~;
~]~}"(ash(set'c(digit-char-p(read-char)16))-2)(mod c 4)))