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