module Main where

import qualified Lexer
import qualified Parser
import qualified AbstractSyntaxTree as AST
import qualified Compiler

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