alias START_COMPUTER {
hmake STACK_COMPUTER
hadd STACK_COMPUTER STACK_COUNT 0
}

alias STOP_COMPUTER {
hfree STACK_COMPUTER
}

alias PUSH {
hadd STACK_COMPUTER STACK_COUNT $CALC($HGET(STACK_COMPUTER,STACK_COUNT) + 1)
hadd STACK_COMPUTER $HGET(STACK_COMPUTER, STACK_COUNT) $1
}

alias POP {
hadd STACK_COMPUTER STACK_COUNT $CALC($HGET(STACK_COMPUTER, STACK_COUNT) - 1)
return $HGET(STACK_COMPUTER, $CALC($HGET(STACK_COMPUTER, STACK_COUNT) + 1))
}
alias -l EXECUTE [ $1 ]