-import "Prelude" hiding (findFirst)\r
-\r
-findFirst :: (a -> <e> Maybe b) -> [a] -> Maybe b\r
-findFirst f l = loop 0\r
- where\r
- len = length l\r
- loop i \r
- | i >= len = Nothing\r
- | otherwise = match f (l!i) with\r
- s @ (Just _) -> s\r
- Nothing -> loop (i+1)\r
-\r
-main = "Not to be executed"\r
---\r
+import "Prelude" hiding (findFirst)
+
+findFirst :: (a -> <e> Maybe b) -> [a] -> Maybe b
+findFirst f l = loop 0
+ where
+ len = length l
+ loop i
+ | i >= len = Nothing
+ | otherwise = match f (l!i) with
+ s @ (Just _) -> s
+ Nothing -> loop (i+1)
+
+main = "Not to be executed"
+--