@@ -2,3 +2,6 @@
fsum::Num a => [a] -> a
fsum = foldl (+) 0
+
+fmax::(Ord a, Num a) => [a] -> a
+fmax = foldl max 0