anchor.diff:          template <- template.Replace("{{AggregratedResults}}", aggrBuilder.ToString())
           File.WriteAllText
               (Constants.WebFolder +/ "Reports" 
  -             +/ (sprintf "%s_%s_%s_cutoff_%i_%i.html" request.IndexName request.ProfileName (Path.GetFileNameWithoutExtension(request.SourceFileName)) (int request.CutOff)
  +             +/ (sprintf "%s_%s_%s_cutoff_%i_%i.html" request.IndexName request.ProfileName 
  +                     (Path.GetFileNameWithoutExtension(request.SourceFileName)) (int request.CutOff) 
                        (GetCurrentTimeAsLong())), template)
       
       let requestProcessor = 
  
positive.code:             builder |> addElement (EndTable)
          (builder.ToString(), aggrBuilder.ToString())
      
      let generateReport (jobId, request : DuplicateDetectionReportRequest) = 
          //let (headers, records) = CsvHelpers.readCsv (request.SourceFileName, None)
          use reader = new TextFieldParser(request.SourceFileName)
          reader.TextFieldType <- FieldType.Delimited
          reader.SetDelimiters([| "," |])
          reader.TrimWhiteSpace <- true
          let headers = reader.ReadFields()
          let stats = new Stats()
          let builder = new StringBuilder()
          let aggrBuilder = new StringBuilder()
  
negative.code:             if results.Meta.RecordsReturned > 1 then 
                  !>"Duplicate Found"
                  let header = 
                      new SourceRecord(session.SessionId, SourceRecordId = record.[Constants.IdField], 
                                       SourceDisplayName = record.[session.DisplayFieldName])
                  let docs = results |> toFlatResults
                  let mutable i = 1
                  for result in docs.Documents do
  