static L<WebRelation> web_allRelationsWithLabel(Web web, S label) {
  Lisp l = web.parseLabel(label);
  new L<WebRelation> out;
  for (WebRelation r : web_relationObjects(web))
    if (r.hasLabel(l))
      out.add(r);
  ret out;
}