sS makeAGIDomainPart(S s) {
  // OLD version: LS tok = unquoteAll(wordTokC_noBrackets(s));
  LS tok = wordTok2C(s));
  ret replaceAll(join("-", tok), "'", "");
}