: ordered-perms ( seq -- seq ) [ length >array [ 1+ ] map ] [ ] bi '[ _ swap clump ] map ;