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