Main

module Main where

import Control.Monad

import CalculatorParser

main :: IO ()
main = forever $ do
  putStr "> "
  line <- getLine
  case parseExpression line of
    Left errorMessage -> putStrLn errorMessage
    Right expr -> do
        putStrLn . show $ expr
        print . calculateExpression $ expr