static int substringsScoreIC(S s, Cl<S> l) {
  int n = 0;
  fOr (S x : l)
    if (cic(s, x))
      ++n;
  ret n;
}