DUP>R
* DUP>R ( val -- val )

shortcut, see R>DROP

note again that the following will fail:
 : DUP>R DUP >R ;

FORTH/BASE misc compiling primitive