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:     Map.ofSeq([("GEN2:E2004940F54BE57110CF3F95", "Grinder")
                 ("GEN2:E2004940F54BE5B110CF3F96", "Hammer drill")
                 ("GEN2:E2004940F54BE43110CF3F90", "Screw gun")
                 ("GEN2:E2004940F54BE23110CF3F88", "Sawzall")
                 ("GEN2:AD1901011A0D15912F000026", "Unobtainuim smacker")
                 ("GEN2:AD1901011A0D0D9130000025", "Nailgun")
                 ("GEN2:AD1901011A0CEF804E000423", "Hard Hat 1")
                 ("GEN2:AD1901011A0D019529000024", "Bin 1")])
  
  let expectedIds: Set<string> =
      ["GEN2:E2004940F54BE57110CF3F95"; "GEN2:AD1901011A0CAD913000001C"; "GEN2:E2004940F54BE77110CF3F9D"]
      |> Set.ofList
  
  let AsyncHttp(url : string) =
      let request =
          async { // Create the web request object
              let req = WebRequest.Create(url)
  