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 ]