R!
* R! ( x R: a -- R: x )

store the value as the topmost value in the returnstack.
see R@ for inverse operation ( R'@ / R"@ / 2R@ / 2R!)

FORTH/BASE misc compiling primitive