: collect-assoc-by-multi ( ... assoc quot: ( ... key value -- ... new-keys value' ) -- ... assoc )
[ H{ } clone ] 2dip collect-assoc-by-multi! ; inline
: collect-assoc-by-multi ( ... assoc quot: ( ... key value -- ... new-keys value' ) -- ... assoc )
[ H{ } clone ] 2dip collect-assoc-by-multi! ; inline