* DUP ( a -- a a ) duplicate the cell on top of the stack - so the two topmost cells have the same value (they are equal w.r.t >= ) , see >DROP for the inverse
DUP
( a -- a a )
>=
>DROP
core ordinary primitive