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