anchor.diff:  
   let actualItems (data: string) =
       parseTags data
  -    |> Array.sortBy (fun x -> x.toolName.ToUpper())
  +//    |> Array.sortBy (fun x -> x.toolName.ToUpper())
   
   let missingItems (data: string) =
       let actuals = actualIds data
  
positive.code:                     yield { ToolEntry.toolName = name; toolId = j.tag } }
      convertedItems
      |> Set.ofSeq
      |> Seq.sort
      |> Seq.toArray
  
  let actualIds (data: string) =
  
negative.code: let parseTags (tagsAsString: string) =
      let items = 
          Newtonsoft.Json.JsonConvert.DeserializeObject<RfidReads[]>(tagsAsString)
  //        |> Array.sortBy (fun x -> x.timestamp)
          |> Array.rev
          |> Array.toList
          |> Seq.truncate 1
  