!7

!include once #1017600 // Computation Tree Include v2

sclass ToParse extends ObjectNode<S> { *(S *obj) {} }
sclass OptionsNode extends CTNode {}
sclass InterpretAs extends ObjectNode<S> { *(S *obj) {} }
sclass CNCSplit extends ObjectNode<LS> { *(LS *obj) {} }

p-exp {
  ToParse root = new("Test me buddy");
  new OptionsNode options;
  root.add(options);
  options.add(InterpretAs("sentence"));
  L<S> tok = javaTok(root.obj);
  if (l(tok) > 1) {
    int i = l(tok)-2; // C token
    options.add(CNCSplit(ll(
      first(tok),
        joinSubList(tok, 1, i-1),
      tok.get(i-1),
        joinSubList(tok, i, l(tok)-1),
      last(tok))));
  }

  showFrame(jCTDynamicTree(root));
}