(loop(format t"~[
~:;~:*~4,'0b~]"(+(or(digit-char-p(read-char))-3)3)))