(port-map(rec,c(write-byte(if(> c 64)((if(>(fmod c 32)13)- +)c 13)c)))read-byte)