(port-fold(^(i\)(write-byte #0=(logxor(or(and(< 64\ 97)(> i 10)32)0)i))#0#)0 read-byte)