(port-map(rec'x(write-byte(if(= x 10)10 48)))read-byte)