-- Exercice from slide 46

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