anchor.diff:  open System.Net
   
   type ToolEntry =
  -    { toolName: string 
  +    { toolName: string
         toolId : string }
   
   type RfidReads =
  
positive.code:       toolId = id }
  
  let parseTags (tagsAsString: string) =
      let items = 
          Newtonsoft.Json.JsonConvert.DeserializeObject<RfidReads[]>(tagsAsString)
          |> Array.sortBy (fun x -> x.timestamp)
          |> Array.rev
  
negative.code:     async {
          let! str = AsyncHttp "http://192.168.1.112/reads.json"
          return str
      }
      |> Async.StartAsTask
  