module Main where

import System.Exit (die)
import Text.Parsec

-- import Expr
import Parser
import Normalise


main :: IO ()
main = do
  s <- getContents

  expr <- case parse parseExpr "<stdin>" s of
    Left err -> die (show err)
    Right expr -> return expr

  print expr

  print (normalise expr)