(while(read-byte)=>\(dotimes(i(if(< 47\ 58)(-\ 48)1))(write-byte(-\ i))))