(while(-(read-byte)45)=> b(if(> b 0)(format #t"~4'0b"b)(print)))