(port-fold(^'r(if(= .'10)(if(print(ucs->char r))32)(logxor .'r)))32 read-byte)