-- Exercice from slide 46

fsum::Num a => [a] -> a
fsum = foldl (+) 0