import System

import Eval (eval)
import Parser (readExpr)
import Value (showVal)

main = do
    [expr] <- getArgs
    case readExpr expr of
        Left err -> putStrLn err
        Right val -> case eval val [] of
            Left err -> putStrLn err
            Right (val', e) -> putStrLn $ showVal val