static Set<ES> applyWordTokRules_es(L<WordTokRule> rules, ES s) {
  ret concatListsToCISet(map(rules, rule ->
    rule.matches(s!) ? map ext(getStringEmits(rule)) : null
  );
}

static Set<ES> applyWordTokRules_es(L<WordTokRule> rules, Collection<ES> inputs) {
  Set<ES> out = cloneLinkedCISet_es(inputs);
  for unnull (ES input : inputs)
    functionReturningList_transitiveHull_ciSet(func(ES s) -> Collection<ES> { applyWordTokRules_es(rules, s) }, input, seen := out);
  ret out;
}