static L<Pair<LS>> ai_findAPrefixesInPairsListCI(L<Pair<LS>> l, final LS x) {
  ret [Pair<LS> p : unnull(l) | listStartsWithCI(x, p.a)];
}