anchor.diff:      |> Set.ofSeq
       |> Set.map (printfn "%s")
   
  -
  +//Short Name: 
  +let short_names =
  +    products
  +    |> Seq.map(fun p -> p.ShortName, p.Brand)
  +    |> Set.ofSeq
  +    |> Set.map (fun (name, brand) -> printfn "%40s|%-2s|" name brand)
   
   
   // EXPLORE CUSTOMERS:
  
positive.code: // ESCUELA - School
  // Contains : ALIM / MINI / SUPER / BODEGA- Groceries
  // Contains: Cafeteria - Vending machine
  
negative.code: #r "../packages/RProvider/lib/net40/RProvider.Runtime.dll"
  #r "../packages/R.NET.Community/lib/net40/RDotNet.dll"
  
  #r "../packages/Deedle/lib/net40/Deedle.dll"
  
  #load "../packages/FSharp.Charting/FSharp.Charting.fsx"
  
  