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