2VARIABLE 2SWAP 3DROP
2VARIABLE
* 2VARIABLE ( -- )

CREATE a new variable definition. When executed leave
the >BODY address on stack. In pfe, the data area
of a >2VARIABLE is ERASEd initially.

double defining primitive