sS switcheroo_nameToI(S name, S s) {
  SS map = combinedMechMapForCurrentLanguages_inOrder("Switcheroo I -> $name");
  map = mapValues(map, x -> replaceIC(x, "$name", name));
  ret translateUsingWordTree(s, mapToWordTree(reverseCIMap_noOverwrite(map)));
}