!7

static Concepts concepts;

p {
  concepts = new Concepts(#1007609).load();
  Web web1 = getWeb(38), web2 = getWeb(35);
  printWeb(web1);
  printWeb(web2);
  print("Merging.");
  Web web = web_mergeWebs(web1, web2);
  printWeb(web);
  
  print("Thinking.");
  for (Pair<WebNode> p : web_relationsOfType(web, "IS")) {
    web_copyRelations(p.a, p.b);
    web_copyRelations(p.b, p.a);
  }
  
  printWeb(web);
  showCAL(webToCAL(web));
}

static Web getWeb(long drawingID) {
  Drawing d = getConcept(concepts, Drawing, drawingID);
  if (d == null) fail("Drawing " + drawingID + " not found");
  ret web_labelsToUpperCase(calToWeb(d.cal()));
}