module Main where

import qualified Lexer
import qualified Parser
import qualified AbstractSyntaxTree as AST

main :: IO ()
main = do
  source <- readFile "arithmetic.txt"
  case Parser.parse $ Lexer.lex source of
    Just source -> print $ AST.createAST source
    _ -> putStr "Some error"