Implement foldable or

fold.hs

@@ -5,3 +5,6 @@ fsum = foldl (+) 0
 
 fmax::(Ord a, Num a) => [a] -> a
 fmax = foldl max 0
+
+for::[Bool] -> Bool
+for = foldl (||) False