((rec,b(and(real? b),#0=(read-byte)(> b 64)(write-byte b))1)#0#)