anchor.diff:                  let sender = mailbox.Sender()
                   match message with
                   | UserMonitorMessage.Connect (userName, notificationFun) ->
  +                    printfn "Connecting user in user monitor"
                       match state.UserMap |> Map.tryFind userName with
                       | Some user ->
                           user.Reconnect notificationFun
  
positive.code:                         return! loop {state with NotificationFuns = notificationFun::state.NotificationFuns}
                  }
              loop {UserName = userName; Rooms = Map.empty; NotificationFuns = [notificationFun]}
          let userActor = spawn owner userNameStr userActor
          {
              UserName = userName
              Say = (fun message roomName -> userActor <! Say(message, roomName))
              JoinRoom = (fun roomName -> userActor <! UserMessage.JoinRoom(roomName))
              Notify = (fun notification -> userActor <! Notify notification)
              Reconnect = (fun notificationFun -> userActor <! Reconnect notificationFun)
          }
  
      type UserMonitor = {
  
negative.code:                             Notify = notify
                          }
                          let room = roomMonitor.JoinRoom roomName connection
                          printfn "User %A joind room %A" state.UserName roomName
                          let state' = {state with Rooms = state.Rooms |> Map.add roomName room}
                          printfn "New user state %A" state'
                          state.NotificationFuns |> List.iter (fun f -> f (JoinedRoom roomName))
                          return! loop state'
                      | Say(msg,roomName) ->
                          printfn "Looking for room in: %A" state.Rooms
                          printfn "Trying to say %A: %A" roomName msg
                          let roomActor = state.Rooms |> Map.find roomName
                          printfn "Found room: %A" roomActor
                          roomActor.UserSays msg state.UserName
                          return! loop state
                      | Notify notification ->
  