sS switcheroo_nameToYou(S name, S s) {
  SS map = mechMapInOrder("Switcheroo you -> $name");
  map = mapValues(map, x -> replaceIC(x, "$name", name));
  ret translateUsingPhraseMap(s, reverseCIMap_noOverwrite(map));
}