anchor.diff:  
           // setup header
           byteWriter.WriteByte (byte typ)
  -        byteWriter.WriteUInt16 (0us)
  -        byteWriter.WriteByte (0uy)
  +
  +        match typ with
  +        | _ -> ()
  +        //byteWriter.WriteUInt16 (0us)
  +        //byteWriter.WriteByte (0uy)
   
           Buffer.BlockCopy (bytes, startIndex, byteStream.Raw, NetConstants.UdpHeaderSize, size)
   
  
positive.code:         |> Seq.iter (fun client -> client.Update ())
  
  [<Sealed>]
  type Client () =
  
      let packetPool = Stack (Array.init 64 (fun _ -> Packet ()))
  
  
negative.code: 
                  recvStream.Length <- byteCount
  
                  let typ = recvReader.ReadByte ()
  
                  match LanguagePrimitives.EnumOfValue typ with
                  | PacketType.ConnectionRequested ->
  