pack :: Eq a => [a] -> [[a]]