2!
1-
2>R
2!
*
2!
( a,a addr -- )
double-cell store
core
ordinary primitive