x+s1,t1+1)) (0,0) l


-- Sistema de tipos de Haskell às vezes complica!

mfe [] = []
mfe l = 1.5


-- Podemos compor as partes de fo
mediafold l = s/t 
     where (s,t) = foldr (\x (s1,t1) -> (x+s1,t1+1)) (0,0) l


-- Sistema de tipos de Haskell às vezes complica!
mediafold l = s/t 
     where (s,t) = foldr (\x (s1,t1) -> (x+s1,t1+1)) (0,0) l


-- Sistema de tipos de Haskell às vezes complica!