# Pastebin KyTlRwBb
factor :: Parser Int
factor = parens <|> natural
  where parens = do
          symbol "("
          e <- expr
          symbol ")"
          return e