splittist

UNDERNUMBER> (let ((*readtable* (copy-readtable)))
           (install-undernumber *readtable*)
           (loop for answer = (read)
                 until (eq :q answer)
                 do (print answer) (terpri)))
#_b1001_1001 #_xFACE_CAFE #_123_456_789 #44_123,456,789 123

153 

4207856382