sS makeAGIDomainPart(S s) {
  ret replaceAll(join("-", wordTokC(s)), "'", "");
}