dup

Duplica el número de arriba de la pila entera, para usarlo dos veces sin volver a leerlo ni calcularlo.

a dup deja a a. Sirve cuando un valor hace falta dos veces: en lugar de leer otra vez la celda o repetir la cuenta, se copia. También se puede escribir dupint.

Este bot guarda en la celda 50 lo que ve el ojo central (.eye5) elevado al cuadrado, y en las celdas 51 y 52 lo que ve más 10, calculado una sola vez:

cond
start
  *.eye5 dup mult 50 store
  *.eye5 10 add dup 51 store 52 store
stop

El otro uso famoso está en el Bestiario: x dup div vale 1 si x no es cero y 0 si lo es, porque div por cero da 0. Con eso se arman condiciones con pura aritmética (ver Los operadores por familia).

Una rareza heredada: con la pila vacía, dup no deja la pila vacía sino que apila dos ceros. En cambio dupbool, su par de la pila booleana, no hace nada con la pila vacía.