anchor.diff:  
           receiveByteStream.Position <- 0
   
  +        receivers
  +        |> Array.iter (fun receiver -> receiver.Update time)
  +
           this.OnReceive receiverByteReader
   
           unreliableChan.Update time
  
positive.code:     let unreliableChan = UnreliableChannel (packetPool, send)
      let reliableOrderedChan = ReliableOrderedChannel (packetPool, send)
  
      member private this.OnReceive (reader : ByteReader) =
  
          let rec onReceive (reader : ByteReader) =
  
negative.code:         | _ -> ()
  
      member this.Send (bytes, startIndex, size, packetType) =
          match udp with
          | Udp.Server _ ->
              peerLookup
              |> Seq.iter (fun pair ->
                  let peer = pair.Value
                  peer.Send (bytes, startIndex, size, packetType)
              )
          | _ ->
              unreliableChan.Send (bytes, startIndex, size)
  
      member private this.Send<'T> (msg : 'T, packetType) =
          let startIndex = sendStream.Position
  