( scratchpad ) MIXIN: a-mix
( scratchpad ) MIXIN: b-mix
( scratchpad ) INSTANCE: b-mix a-mix
( scratchpad ) TUPLE: c ;
( scratchpad ) INSTANCE: c b-mix
( scratchpad ) GENERIC: foo ( x -- y )
( scratchpad ) M: a-mix foo drop 1 ;
( scratchpad ) c new foo

--- Data stack:
1