DUP>R DUP EDIT-BLOCK
DUP>R ( val -- val )  
<PFE-MISC>
shortcut, see R>DROP
note again that the following will fail: 
 : DUP>R DUP >R ;

reference: p4_dup_to_r in ../src/misc.c:0275, export CO DUP>R