anchor.diff:    partial := false;
     child := new(PParseNode);
     Node := nil;
  +  nonTermI := 0;
     setlength(child.children, 0);
     child.point := inNode;
  +  child.nonTermNum := 0;
     //dumbAtom := innode.RHS;
     parsedLen := 1;
     dumbAtom := innode.RHS[0];
  
positive.code:               partial := true;
                Node := new(PParseNode);
                Node.point := inNode;
                setLength(Node.data, dumbAtom.re.captureLength);
                for i := 0 to length(Node.data)-1 do
                  Node.data[i] := dumbAtom.re.capture[i].captured;
                setLength(Node.children, 0);
              end;
            end;
  
negative.code:   atomI: word;
    atomO: word;
    nodeI: word;
    nonTermI: word;
    Node: PParseNode;
    partial: boolean;
    matched: boolean;
  