anchor.diff:  
       let rmse sample =
           sample
  -        |> Seq.averageBy (fun (act, exp) ->
  +        |> PSeq.averageBy (fun (act, exp) ->
               let delta = act - exp
               delta * delta)
           |> sqrt
  
positive.code:             row.Product_description |> normalize)
          |> dict
  
      let attributes =
  
          printfn "Loading attributes"
  
          AllAttributes.GetSample().Rows
          |> PSeq.map (fun x -> 
              x.Name |> normalize, 
              x.Value |> normalize)
          |> Seq.groupBy fst
          |> Seq.map (fun (key,values) ->
              key,
              values |> Seq.map snd |> set)
          |> Map.ofSeq
  
negative.code:     open System
      open System.IO
      open System.Text.RegularExpressions
      open System.Diagnostics
  
      open FSharp.Collections.ParallelSeq
      open FSharp.Data
  