TUPLE: slot { field initial: [ identity ] } { vitality integer initial: 10000 } ; : alive? ( slot -- ? ) vitality>> 0 > ;