[ ' [ [ ] ] swap times
      [ [] i rot witheach
        [ dup size 1+ times
          [ 2dup i^ stuff
            dip rot nested join
            unrot ] drop ] drop ] ] is perms ( n --> [ )

  4 perms witheach [ echo cr ]