!7

!include #1008522 // Analysis Tree

p-tt {
  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);
}

Began life as a copy of #1008463