static ItIt<S> allWordsOfAlphabetWithLength(int length, S alphabet) {
  ret mapI join(outerProduct(rep(length, characters(alphabet))));
}