main.hs

{-# Language ImportQualifiedPost #-}

import Data.Map.Strict qualified as Map
import Text.Parsec (parse)
import Control.Monad.Reader (runReader)
import Eval (eval)
import Parse (parseExpression')

main = do
    msg <- getContents
    let (Right ast) = parse parseExpression' "" msg
    print ast
    let result = runReader (eval ast) Map.empty
    print result