static <A> L<Pair<L<A>>> orderListPairsByLengthOfADesc(L<Pair<L<A>>> l) {
  ret sortByCalculatedFieldDesc(l, func(Pair<L<A>> p) -> int { l(p.a) });
}