-- Execute a program against a given stack.
execute :: Stack -> Program -> Either String StackVal
execute []                       []             = Right Void
execute :: Stack -> Program -> Either String StackVal
execute []                       []             = Right Void
execute []                       []             = Right Void