-stringSum :: String -> Integer\r
-stringSum "(\(a),\(b),\(c))" = a + b + c\r
+import "Prelude"\r
\r
-main = stringSum "(1,2,3)"\r
+main = match "abc123def" with\r
+ "abc\(x)fed" -> "X\(x)"\r
+ "cba\(x)def" -> "Y\(x)"\r
+ "abc\(x)def" -> "Z\(x)"\r
+ x -> "W\(x)"\r
--\r
-6
\ No newline at end of file
+Z123
\ No newline at end of file