empaquetar :: [Integer] -> [[Integer]]
empaquetar x : [] = (x : []) : [] --seria [[x]]
empaquetar x1 : (x2 : xs) | x1 == x2 = concatenaListDeList x1 (empaquetar(x2 : xs))
empaquetar x1 : (x2 : xs) | otherwise = (x1 : []) : empaquetar (x2 : xs)

concatenaListDeList :: Integer -> [[Integer]] -> [[Integer]]
concatenaListDeList i (x1 : (x2 : xs)) = ((i : x1) : (x2 : xs)

{- segun el profe:
paquete :: [Integer] -> [[Integer]]
paquete [] = []
paquete (x : []) = (x : []) : []
paquete (x1 : x2 : xs) | x1 == x2 = (x1 : head rec) : (tail rec)
paquete (x1 : x2 : xs) | otherwise = (x1 : []) : rec
                        where rec = empaquetar (x2 : xs)

truco bizarro con patern matchin en el where (terminas no usando head y tail):

paquete :: [Integer] -> [[Integer]]
paquete [] = []
paquete (x : []) = (x : []) : []
paquete (x1 : x2 : xs) | x1 == x2 = (x1 : y) : ys
paquete (x1 : x2 : xs) | otherwise = (x1 : []) : rec
                        where rec @ (y : ys)  = empaquetar (x2 : xs)

-}