sS translateUsingMechPhraseList(S listName, S s) {
  ret translateUsingPhraseMap(s, mechCIMap(listName));
}