groupEq (x:xs) = (groupEq a) ++ [x] ++ (groupEq b)
        where
            a = filter (==x) xs
            b = filter (/= x) xs