stringSum :: String -> Integer
stringSum "(\(a),\(b),\(c))" = a + b + c

main = stringSum "(1,2,3)"
--
6