anchor.diff:  
           member this.BroadcastReliableString str =
               let bytes = System.Text.Encoding.UTF8.GetBytes (str)
  -            let bytes = Array.append [| byte ServerMessage.ReliableString |] bytes 
  +            let seqBytes = BitConverter.GetBytes (reliableStringSequence)
  +            let bytes = Array.append seqBytes bytes 
  +            let bytes = Array.append [| byte ServerMessage.ReliableString |] bytes
               lookup
               |> Seq.iter (fun pair ->
                   let (endpoint, connectedClient) = pair.Value
                   udp.Send (bytes, bytes.Length, endpoint :?> IPEndPoint) |> ignore
               )
  +
  +            reliableStringSequence <- reliableStringSequence + 1us
   
       interface IDisposable with
   
  
positive.code:                     match Microsoft.FSharp.Core.LanguagePrimitives.EnumOfValue<byte, ServerMessage> (a) with
                      | ServerMessage.ReliableString ->
  
                          let packet = DesktopPacket (buffer, 1, bytes - 1) :> IPacket
                          serverPacketReceived.Trigger (packet)
  
                      | _ -> ()
  
negative.code:     let lookup = Dictionary<IPAddress, EndPoint * DesktopConnectedClient> ()
  
      let buffer = Array.zeroCreate<byte> 65536
  
      let mutable reliableStringSequence = 0us
  
      interface IServer with
  
  