(while(read-byte)=>\(if(>\ 57)(format #t"~a "\)))