evalList :: (Monad m) => (MonadIO m) => [SyntaxTree] -> [Value] -> SM m [Value]
evalList [] vs' = return $ reverse vs'
evalList :: (Monad m) => (MonadIO m) => [SyntaxTree] -> [Value] -> SM m [Value]
evalList [] vs' = return $ reverse vs'
evalList [] vs' = return $ reverse vs'