static <A, B> Pair<A, B> replacePairA(Pair<A, B> p, A a) {
  ret p == null ? null : pair(a, p.b);
}