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