tryCatch :: Parser Statement
tryCatch = do reserved "try"
              s1 <- statements
              reserved "catch"
              s2 <- statements
              return (TryCatch s1 s2)
tryCatch :: Parser Statement
tryCatch = do reserved "try"
              s1 <- statements
              reserved "catch"
              s2 <- statements
              return (TryCatch s1 s2)
tryCatch = do reserved "try"
              s1 <- statements
              reserved "catch"
              s2 <- statements
              return (TryCatch s1 s2)