evalFile :: LispEnv s -> T.Text -> ST s T.Text
evalFile env expr = do
    exps <- evalExprList env expr
    T.unlines `fmap` mapM (\eexp -> case eexp of
        Left err  -> return $ (T.pack . show) err
        Right val -> return $ (T.pack . show) val) exps
evalFile :: LispEnv s -> T.Text -> ST s T.Text
evalFile env expr = do
    exps <- evalExprList env expr
    T.unlines `fmap` mapM (\eexp -> case eexp of
        Left err  -> return $ (T.pack . show) err
        Right val -> return $ (T.pack . show) val) exps
evalFile env expr = do
    exps <- evalExprList env expr
    T.unlines `fmap` mapM (\eexp -> case eexp of
        Left err  -> return $ (T.pack . show) err
        Right val -> return $ (T.pack . show) val) exps