static <A> S formatDoubleArrowPairs(LPair<A> l) {
  ret lines(mapPairsToList(l, func(O key, O value) -> S {
    str(key) + " => " + str(value)
  }));
}