let numbers = [1;2;2;3;3;3;4;5;5]
let map = numbers |> Seq.groupBy id |> Map.ofSeq
map |> Map.iter (printfn "%A - %A")