!7

sclass ApplySF {
  S name;
  int pos;
  L args;
}

sclass Operation {
  ApplySF op;
  Data result;
}

sclass Data {
  O data;
  new L<Operation> operations;
}

static Data initial;

p-tt {
  S input = loadSnippet(#1008462);
  MultiSet<Char> histogram = charsHistogram(input);
  //psl(histogram);
  psl(multiSetToMapPopularFirst(histogram));
  
  checkPair(input, '<', '>');
}

svoid checkPair(S input, char a, char b) {
  print("Checking " + quoteChar(a) + " " + quoteChar(b));
  L<S> strings = findSubstringsEnclosedBy_inner(input, a, b);
  psl(strings);
}