static Set<Char> charactersAppearingExactlyOnceInEachString(L<S> l) {
  Set<Char> set = null;
  for (S s : l) {
    Set<Char> newSet = asHashSet(keysWithValue(1, multiSetAsMap(asMultiSet(charsAsList(s)))));
    if (set != null) newSet = intersectSets(set, newSet);
    set = newSet;
  }
  ret set;
}