x + y
-- soma = \x -> \y -> x + y
--
-- f = \x -> x + 1
-- f x = x + 1
 
-- Podemos definir a função que computa a media com foldr, também sem
-- varrer a lista duas vezes.

mediafold [] = 0
mediafold l = s/t 
     where (s,t) = foldr (\x (s1,t1) -> 
mediafold [] = 0
mediafold [] = 0