group :: (Eq a) => [a] -> [[a]]
group [] = []
group l = foldr (\x (ys:yss) -> if ys == [] || x == head ys then (x:ys):yss else [x]:ys:yss) [[]] l