# Pastebin nETZ5hIg
between :: Parser a -> Parser b -> Parser c -> Parser c
between pa pb pc = pa *> pc <* pb

factor :: Parser Int
factor = between (symbol "(") (symbol ")") expr <|> natural