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