anchor.diff:                      builder.Clear() |> ignore
                       match command with
                       | BeginTable(record) -> 
  -                        builder.Append("""<table class="table"><thead><tr>""") |> ignore
  +                        builder.Append("""<table class="table table-bordered table-condensed"><thead><tr>""") |> ignore
                           for pair in record do
  -                            builder.Append(sprintf "<th>%s</th>" pair.Value) |> ignore
  +                            builder.Append(sprintf "<th>%s</th>" pair.Key) |> ignore
                           builder.Append("""</tr></thead><tbody>""") |> ignore
  -                    | AddRecord(record) -> 
  -                        builder.Append("<tr>") |> ignore
  +                    | AddRecord(mainRecord, record) -> 
  +                        if mainRecord then builder.Append("""<tr class="active">""") |> ignore
  +                        else builder.Append("<tr>") |> ignore
                           for pair in record do
                               builder.Append(sprintf "<td>%s</td>" pair.Value) |> ignore
                           builder.Append("</tr>") |> ignore
  -                    | EndTable -> builder.Append("</tbody></table>") |> ignore
  +                    | EndTable -> builder.Append("</tbody></table><hr/>") |> ignore
                       File.AppendAllText(filePath, builder.ToString())
                       return! loop()
                   }
  
positive.code:                             (new LineItem(SecondaryRecordId = result.[Constants.IdField], 
                                            DisplayName = result.[session.DisplayFieldName], Score = score, 
                                            HeaderId = header.HeaderId)) |> ignore
                          if req.GenerateReport then fileWriter.Post(AddRecord result, req.ReportName)
                  if req.GenerateReport then fileWriter.Post(EndTable, req.ReportName)
                  context.SaveChanges() |> ignore
          | _ -> ()
      
      let performDuplicateDetection (jobId, indexWriter : IndexWriter.T, req : DuplicateDetectionRequest) = 
          maybe { 
              let session = new Session()
              session.IndexName <- req.IndexName
              session.ProfileName <- req.ProfileName
  
negative.code: 
  type FileWriterCommands = 
      | BeginTable of record : Dictionary<string, string>
      | AddRecord of mainRecord : bool * record : Dictionary<string, string>
      | EndTable
  
  [<Sealed>]
  