TUPLE: tuple1 s1 s2 s3 s4 s5 s6 ;
TUPLE: tuple2 < tuple1 s2 s5 s7 s8 ;
TUPLE: tuple3 < tuple2 s4 s5 s8 s9 s10 ;

1 2 3 4 5 6 7 8 9 10 tuple3

[ all-slots [ name>> ] map
  [ reverse! members
    [ swap 2array ] map ] keep ] keep
    [ initial-values reverse!
      [ 2array ] 2map
      [ '[ [ first ] [ last ]
           bi _ swap '[ drop _ ]
           change-at ] each ] keep
      reverse! [ last ] each ] keep boa