!7

p {
  L<S> l = splitAtSpace("These are four parts");
  for (int n = 0; n <= l(l)+1; n++) {
    print("\nn=" + n + "\n");
    pnl(allSubsetsOfLength(n, l));
  }
}