お返事有難う御座います。
イメージは、解りました。
ご教示頂いた方法で、作るかないですか？
たとえばSubsets[Range　とかに、似たようなコマンドで、
作れないでしょうか？