CODE DUP ( n --- n n)
  ax pop ax push ax push NEXT
  END-CODE