END-SUBRECORD END-STRUCT END-VARIANT
END-SUBRECORD
* END-SUBRECORD ( outer-offset here some-offset -- outer-offset+some )

end definition of a subrecord (mpe.000) 
 : END-SUBRECORD  TUCK SWAP !  + ;

struct ordinary primitive