static <A, B> LPair<A, B> zipPairsOfLists(LPair<L<A>, L<B>> l) {
  ret concatLists(mapPairsToList(f zipTwoListsToPairs, pairsOfListsWithEqualSize(l)));
}