static ItIt<S> anagrams_iterator(S s) {
  Set<S> seen = litciset(s);
  ret filterIterator((IF1<L<Char>, Bool>) l -> add(seen, join(x)), allPermutations_iterator(characters(s)));
}