quantos :: Int -> [Int] -> Int
quantos x [] = 0
quantos x (y:ys) = if (x == y) then (1 + (quantos x ys))
                 else (quantos x ys)