2CONSTANT 2@ 2DROP
2CONSTANT
* 2CONSTANT ( x1 x2 "name" -- )

create a word that contains the specified twocell number in its body.
when the name is executed, these numbers are left on the stack 
   12. 2CONSTANT X .s 
    ok
   X .s
   0 12 ok

FORTH/ANS double (dpANS8.6.1.0360) defining primitive