I'm trying to make a function (`conta :: Int -> Polinomio -> Int`) that gives me a (`conta n p`) telling me how much `n`'s I have in `p`.

```
type Polinomio = [Monomio]
type Monomio = (Float,Int)

conta :: Int -> Polinomio -> Int
conta n [] = 0
conta n ((x,y):xs) = if n == y then x else conta xs

```

> 
> 
> ```
> Ficha2.hs:83:37: error:
>    • Couldn't match expected type ‘Int’ with actual type ‘Float’
>    • In the expression: x
>      In the expression: if n == y then x else conta xs
>      In an equation for ‘conta’:
>          conta n ((x, y) : xs) = if n == y then x else conta xs
> 
> Ficha2.hs:83:44: error:
>    • Couldn't match expected type ‘Int’
>                  with actual type ‘Polinomio -> Int’
>    • Probable cause: ‘conta’ is applied to too few arguments
>      In the expression: conta xs
>      In the expression: if n == y then x else conta xs
>      In an equation for ‘conta’:
>          conta n ((x, y) : xs) = if n == y then x else conta xs
> 
> Ficha2.hs:83:50: error:
>    • Couldn't match expected type ‘Int’ with actual type ‘[Monomio]’
>    • In the first argument of ‘conta’, namely ‘xs’
>      In the expression: conta xs
>      In the expression: if n == y then x else conta xs
> 
> ```
> 
>