!7

static L<S> opDiagrams = tlft([=[
  CirclesAndLines(circles=[Circle(text="Collapse node backward with name", x=d("0.3414985590778098"), y=d("0.4584139264990329")), Circle(text="\"I think that\"", x=d("0.7536023054755043"), y=d("0.46421663442940037"))], lines=[Arrow(a=t5, b=t26, text="")])
]=]);

static L<S> inputDiagrams = tlft([=[
  CirclesAndLines(circles=[Circle(text="I think that", x=d("0.3270893371757925"), y=d("0.35589941972920697")), Circle(text="This is cool", x=d("0.6556195965417867"), y=d("0.35009671179883944"))], lines=[Arrow(a=t5, b=t26, text="")])
]=]);

static SS operationsMap = lithashmap(
  "Collapse node backward with name", f web_collapseNodeBackwardsWithName,
  "Collapse backward with name", f web_collapseBackwardsWithName
);

p {
  Web web = web_fromCALStructures(inputDiagrams);
  Web opWeb = web_fromCALStructures(opDiagrams);
  for (WebNode node : web_nodes(opWeb)) {
    S function = operationsMap.get(node.text());
    if (function != null) {
      S arg = web_operandText(node);
      print(function + " " + arg);
      callMC(function, web, arg);
    }
  }
  showWeb(web);
}