anchor.diff:      | Server of IUdpServer * ServerData
       | ServerWithEndPoint of IUdpServer * IUdpEndPoint * ConnectedClientData
   
  +[<AbstractClass>]
   type Peer (udp : Udp) as this =
   
       let packetPool = PacketPool 1024
  
positive.code: 
      let createClientData () =
          {
              pingTime = TimeSpan.Zero
              peerConnected = Event<IUdpEndPoint> ()
              peerDisconnected = Event<IUdpEndPoint> ()
          }
  
negative.code:         {
              heartbeatInterval = interval
              heartbeatTime = time
              pingTime = TimeSpan.Zero
          }
  
  [<RequireQualifiedAccess>]
  