((^o(while(read-byte)=>\(if(or(>\ o)(=\ 10))(write-byte(set! o \)))))0)