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