Implement foldable any

fold.hs

@@ -8,3 +8,6 @@ fmax = foldl max 0
 
 for::[Bool] -> Bool
 for = foldl (||) False
+
+fany::(a->Bool)->[a]->Bool
+fany p xs = for $ map p xs