sO mapLike uncurryToFunctionOnPair(O f) {
  ret func(Pair p) {
    ret callF(callF(f, p.a), p.b);
  };
}