(map(^b(if(< 64 b)(write-byte b)))(port-fold cons()read-byte))