Verdeel een lijst in sublijsten, waarbij elke sublijst opeenvolgende gelijke elementen bevat. Een nieuwe sublijst begint dus telkens wanneer het element verandert.
pack :: Eq a => [a] -> [[a]]
pack [1, 2, 2, 3, 3, 3] == [[1],[2,2],[3,3,3]]
pack "aabbccddee" == ["aa","bb","cc","dd","ee"]
pack "aabaa" == ["aa","b","aa"]
pack "" == []