[
    all-slots [ name>> ] map
    [
        reverse! members 
        [ length ] keep 
    ] keep
] keep

[
        [ narray reverse! ] dip
        swap zip
] 2dip

[
    initial-values reverse!
    zip
    swap assoc-union!
    reverse! [ last ] each
] 
[
    boa
] bi