! See http://re-factor.blogspot.com/2010/07/new-combinatoric-functions.html : selections ( seq n -- selections ) swap [ ] product-map ; ! Or if you don't need an array : : selections ( seq n -- selections ) swap ;