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

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

struct ordinary primitive