!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));

}