anchor.diff:                begin {That option was a winner}
                   matched := true;
                   parsedLen := parsedLen + i;
  +                Node.nonTermNum := nonTermI;
                   break;
   
                   {
  
positive.code:   partial := false;
    child := new(PParseNode);
    Node := nil;
    setlength(child.children, 0);
    child.point := inNode;
    //dumbAtom := innode.RHS;
    parsedLen := 1;
    dumbAtom := innode.RHS[0];
  
negative.code:               partial := true;
                Node := new(PParseNode);
                Node.point := inNode;
                Node.nonTermNum := 0;
                if dumbAtom.re.captureLength > 1 then
                begin
                  setLength(Node.data, dumbAtom.re.captureLength-1);
                  for i := 0 to length(Node.data)-1 do
                    Node.data[i] := dumbAtom.re.capture[i+1].captured;
                end;
                setLength(Node.children, 0);
              end;
            end;
  