Make the foldable sum working on every num

fold.hs

@@ -1,4 +1,4 @@
 -- Exercice from slide 46
 
-fsum::[Integer] -> Integer
+fsum::Num a => [a] -> a
 fsum = foldl (+) 0