static Pair transformPair(O f, O g, Pair p) {
  ret p == null ? null : pair(callF(f, p.a), callF(g, p.b));
}