-- Exercice from slide 46 fsum::Num a => [a] -> a fsum = foldl (+) 0 fmax::(Ord a, Num a) => [a] -> a fmax = foldl max 0
