2>R 2! 2*
2>R
* 2>R ( a,a -- R: a,a )

save a double-cell value onto the return-stack, see >R

FORTH/ANS core (dpANS.6.2.0340) compiling primitive