sS makeAGIDomain(S s) {
  ret join("-", wordTokC(s));
}