-- Execute the given program. Returns either an error message or the
-- value on top of the stack after execution.
stackVM :: Program -> Either String StackVal
stackVM = execute []
stackVM :: Program -> Either String StackVal
stackVM = execute []
stackVM = execute []