# Pastebin 3Fzxhu6s
expr :: Parser Int
expr = do t <- term
          do
            symbol "+"
            e <- expr
            return (t + e)
           <|> return t