[ all-slots [ name>> ] map [ reverse! members [ length narray reverse! ] keep [ swap 2array ] 2map ] keep ] [ initial-values reverse! [ 2array ] 2map swap assoc-union! reverse! [ last ] each ] [ boa ] tri