anchor.diff:  open Microsoft.VisualBasic.FileIO
   
   type Session() = 
  +    member val Id = Guid.NewGuid().ToString()
       member val SessionId = Guid.NewGuid().ToString()
       member val IndexName = Unchecked.defaultof<string> with get, set
       member val ProfileName = Unchecked.defaultof<string> with get, set
  
positive.code:     let getId() = Guid.NewGuid().ToString()
      
      let writeSessionRecord (session : Session, documentService : IDocumentService) = 
          let doc = new Document.Dto(schema.IndexName, getId())
          doc.Fields.Add(sessionId, session.SessionId)
          doc.Fields.Add(recordType, sessionRecordType)
          doc.Fields.Add(sessionProperties, formatter.SerializeToString(session))
  
negative.code:         let parallelOptions = new ParallelOptions(MaxDegreeOfParallelism = session.ThreadCount)
          let mainQuery = 
              new SearchQuery.Dto(session.IndexName, req.SelectionQuery, Count = int req.MaxRecordsToScan, 
                                  ReturnFlatResult = true, Columns = [| "*" |])
          let resultC = searchService.Search(mainQuery)
          match resultC with
          | Choice1Of2(result) -> 
  