anchor.diff:  
               ////
   
  -           // f state.compressedStream.Raw (int previousPosition) length
  -            state.compressedStream.Position <- previousPosition
  -            let compressedReader = ByteReader (state.compressedStream)
  -            let compressLength = compressedReader.ReadInt ()
  -
  -            state.sendStream.SetLength (int64 startIndex)
  -            let deflateStream = new DeflateStream (state.compressedStream, CompressionMode.Decompress)
  -            let length2 = deflateStream.Read (state.sendStream.Raw, startIndex, compressLength)
  -            deflateStream.Dispose ()
  -            state.compressedStream.Position <- 0L
  -
  -            f state.sendStream.Raw startIndex size
  +            f state.compressedStream.Raw (int previousPosition) length
  +            //state.compressedStream.Position <- previousPosition
  +            //let compressedReader = ByteReader (state.compressedStream)
  +            //let compressLength = compressedReader.ReadInt ()
  +
  +            //state.sendStream.SetLength (int64 startIndex)
  +            //let deflateStream = new DeflateStream (state.compressedStream, CompressionMode.Decompress)
  +            //let length2 = deflateStream.Read (state.sendStream.Raw, startIndex, compressLength)
  +            //deflateStream.Dispose ()
  +            //state.compressedStream.Position <- 0L
  +
  +            //f state.sendStream.Raw startIndex size
   
           | _ -> ()
   
  
positive.code:         }
  
      let rec read' (subscriptions : Event<obj> []) (state : ReceiveStreamState) =
          let reader = state.receiveStream.Reader
          let typeId = reader.ReadByte () |> int
  
          if subscriptions.Length > typeId && typeId >= 0 then
  
negative.code: 
      let read subscriptions state =
          state.receiveStream.Position <- 0L
  
          while not state.receiveStream.Reader.IsEndOfStream do
              read' subscriptions state
  
  