cria :: [Int] -> [[Int]]
cria [] = []
cria (a:as) = [x | x <- (a:as), x==a] : cria [x | x <- as, x /= a]

cria2 :: [[Int]] -> [(Int, Int)]
cria2 [] = []
cria2 (a:as) = [(head a, length a)] ++ cria2 as

tuplaQuant :: [Int] -> [(Int, Int)]
tuplaQuant a = cria2 (cria (quick a))

quick :: [Int] -> [Int]
quick [] = []
quick (x:xs) = quick [a | a <- (xs), a < x] ++ [x] ++ quick [a | a <- (xs), a >= x]



maior :: [Int] -> Int
maior a = maximum a


reduz1 :: [Int] -> [Int]
reduz1 a = [y | y <- [0..(maior a)], z <- [2..(length [x | x <- a, x == y])]]