: group-by ( seq quot: ( x -- y ) -- values ) H{ } clone [ '[ [ ] _ bi _ push-at ] each ] keep values ; inline