Select Git revision
main.hs 361 B
{-# 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