-import "Prelude"\r
-\r
-f :: String -> String\r
-f (split "/" -> [a,b]) = "\(a)foo\(b)"\r
-f (split "/" -> [a,b,c]) = "\(a)foo\(b)bar\(c)"\r
-f str = str\r
-\r
-main = f "123" + f "abc/def" + f "123/456/789"\r
---\r
-123abcfoodef123foo456bar789\r
+import "Prelude"
+
+f :: String -> String
+f (split "/" -> [a,b]) = "\(a)foo\(b)"
+f (split "/" -> [a,b,c]) = "\(a)foo\(b)bar\(c)"
+f str = str
+
+main = f "123" + f "abc/def" + f "123/456/789"
+--
+123abcfoodef123foo456bar789