gistfile1.txt

let rec MultiPartition aList (p:'a -> 'a -> bool) results = 
    match aList with
    | x::rest -> 
           let equivalent,newRest =
                  List.partition
                        (fun e -> p x e)
                        rest
             in MultiPartition newRest p ((x::equivalent)::results)
    | [] -> results