static Pair<LS> ai_findAPrefixInPairsListCI(L<Pair<LS>> l, LS x) {
  for (Pair<LS> p : unnull(l))
    if (listStartsWithCI(x, p.a)) ret p;
  null;
}