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