anchor.diff:      | RemovePlayer of PlayerIdentity
   
   
  -type PlayerGameInfo = {
  -    GameRoom : Actor.IActorRef
  -
  -}
  -
  -type PlayerMessage = 
  -    | GameStarted of PlayerGameInfo
  -    | Failed
  -            
   
   let WaitingRoomActor(mailbox:Actor<WaitingRoomMessage>) =
       let log = printfn
  
positive.code:             waitingRoom <! AddPlayer(PlayerIdentity.Create id (mailbox.Self))
              let! response = mailbox.Receive()
              match response with
              | Ready (a) -> return! gamePlay a
              | Failed    -> return! requestGameRoom()
  
          with
  
negative.code: 
          if Set.count players = 3 then
              //  start the game by notifying all players the gameRoom has been initialized
              let gameRoomActor = spawn ActorSystem "GameRoom" (GameRoomActor players)
              players |> Set.toList |> List.iter(fun p -> p.Ref <! GameStarted({PlayerGameInfo.GameRoom = gameRoomActor}))
              log "Game Started"
  
          let! message = mailbox.Receive()
  