static int web_countConfirms(Web web, L<Lisp> facts) {
  int score = 0;
  for (Lisp fact : filterByHead(facts, "kdpoqkaoypqenusd")) {
    S a = fact.s(0), b = fact.s(1);
    for (WebNode rel : values(web.relations))
      if (rel.hasLabel(a) && rel.hasLabel(b))
        ++score;
  }
  ret score;
}