anchor.diff:          setFileLogLevel   appServer.MinFileLogLevel
   
           let isInBlackList (session:IAppSession) = exists ((=) (session.RemoteEndPoint.Address.ToString())) appServer.BlackList
  -        let ipAddress     (session:IAppSession) = session.RemoteEndPoint.Address.ToString()
           let isValid msg   (session:CustomProtocolSession) =
               let order, hashOK = 
                   if session.ProtocolVersion > (1, 1) then
  
positive.code:                         | _                                                                                               -> UserMsg   recipients
                      let processServerMessage() =
                          match serverMessage, lazy (tryFind (fun {Session = s} -> s == session.SessionID) state.Users) with
                          | Function f, Lazy None -> log Debug "Session not found: %s , function: %A, message: %A" session.SessionID f (prettyPrintMsg msg)
                          | UserMsg _ , Lazy None -> log Debug "Session not found: %s, message: %s"                session.SessionID   (prettyPrintMsg msg)
                          | Function f, Lazy (Some sender) ->
                              let sender, rcpts, content = head msg.recipients, [sender.Name], f sender
                              let msg = writeMessage (sender, rcpts, msg.subject, pickle valueP content)
  
negative.code:             log Debug "Sessions: %i" appServer.SessionCount
              appServer.GetAllSessions() |> map_ (fun s -> 
                  if not s.Authenticated && (DateTime.Now - s.StartTime).TotalSeconds > 60. then 
                      log Debug "Session %A login timeout." s
                      s.Close CloseReason.TimeOut)
  
          appServer.add_NewRequestReceived  (RequestHandler<_, _> evtRequest)
  