* DUP>R ( val -- val ) shortcut, see >R>DROP note again that the following will fail: : DUP>R DUP >R ;
DUP>R
( val -- val )
>R>DROP
: DUP>R DUP >R ;
misc ordinary primitive