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

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

core ordinary primitive