INSTANCE-ADDR INPUT_MAGIC INSTANCE
INSTANCE-ADDR
* INSTANCE-ADDR ( len -- addr )

Create nameless instance of a structure and return base address. 
 : INSTANCE-ADDR  HERE SWAP ALLOT ;

EXTENSIONS struct ordinary primitive