<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_vv9j3p09tt047o4nrjr42nuv2q, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

sclass ApplySF {
  S name;
  int pos;
  L args;
  
  *() {}
  *(S *name, int *pos, O... args) { this.args = asList(args); }
  
  O call(O o) {
    L args = cloneList(this.args);
    args.add(pos, o);
    ret makeAndCall(name, toObjectArray(args));
  }
}

sclass Operation {
  ApplySF op;
  Data result;
  
  *() {}
  *(ApplySF *op) {}
}

sclass Data {
  O data;
  bool error;
  new L<Operation> operations;
  
  *() {}
  *(O *data) {}
}

static Data initial;

p-tt {
  S input = loadSnippet(#1008462);
  initial = new Data(input);
  doOp(initial, new ApplySF("findSubstringsEnclosedBy_inner", 0, '<', '>'));
}

svoid doOp(Data data, ApplySF theOp) {
  Operation op = new Operation(theOp);
  data.operations.add(op);
  try {
    op.result = new Data(op.call(data.data));
  } catch {
    op.result = nu(Data, error := true);
  }
}

svoid checkPair(S input, char a, char b) {
  print("Checking " + quoteChar(a) + " " + quoteChar(b));
  L<S> strings = findSubstringsEnclosedBy_inner(input, a, b);
  psl(strings);
}