M: evens virtual-exemplar seq>> ; inline
-INSTANCE: evens immutable-sequence
-
INSTANCE: evens virtual-sequence
TUPLE: odds { seq read-only } ;
M: odds virtual-exemplar seq>> ; inline
-INSTANCE: odds immutable-sequence
-
INSTANCE: odds virtual-sequence
: until-empty ( seq quot -- )