anchor.diff:              let product =
                   {
                       UID = row.Product_uid
  -                    Title = row.Product_title
  +                    Title = row.Product_title |> normalize
                       Description = description
                       Attributes = attributes
                   }
  
positive.code:         printfn "Loading product descriptions"
  
          AllProducts.GetSample().Rows
          |> Seq.map (fun row -> row.Product_uid,row.Product_description)
          |> dict
  
      let attributes =
  
negative.code:         printfn "Loading attributes"
  
          AllAttributes.GetSample().Rows
          |> Seq.map (fun x -> 
              x.Name |> lowerCase, 
              x.Value |> normalize)
          |> Seq.groupBy fst
          |> Seq.map (fun (key,values) ->
              key,
  