!7

!include #1008522 // Analysis Tree

p-tt {
  load("initial");
  if (initial == null) {
    S input = loadSnippet(#1008462);
    initial = new Data(input);
    Data data = doOp(initial, new ApplySF("findSubstringsEnclosedBy_inner", 0, '<', '>'));
    doOp(data, new ApplySF("setCount"));
    doOp(doOp(data, new MapSF(new ApplySF("firstWord"))), new ApplySF("setCount"));
  }
  printTree(initial);
  save("initial");
}

Began life as a copy of #1008513