用mathematica列出n个元素的集合的所有子集,或者4元的子集怎么写啊,