CODE DUP ( n --- n n)
  ax pop ax push 1PUSH
  END-CODE