!7

concept Drawing {
  S globalID = aGlobalID();
  S name;
  S calStructure;
  
  CirclesAndLines cal() { ret (CirclesAndLines) unstructure(calStructure); }
}

p {
  Concepts concepts = new Concepts(#1007609).load();
  L<Drawing> drawings = list(concepts, Drawing);
  print("Have " + n(drawings, "drawing") + ".");
  Drawing d = getConcept(concepts, Drawing, 38);
  Web web = calToWeb(d.cal());
  web_labelsToUpperCase(web);
  printWeb(web);
  
  for (Pair<WebNode> p : web_relationsOfType(web, "IS")) {
    web_copyRelations(p.a, p.b);
    web_copyRelations(p.b, p.a);
  }
  
  printWeb(web);
}