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