anchor.diff:  type
     AtomType = (Terminal, NonTerminal, Matching);
   
  -  strArr = array of string;
  +  //strArr = array of string;
   
     PGmrAtom = ^RGmrAtom;
     AGmrAtom = array of PGmrAtom;
  
positive.code:     while inF.eof <> true do
      begin
        s := inF.getLine;
        s := cleanup.substitute(s, ' ');
        if s = '' then continue;
        if s[1] = '#' then continue;
        {Macros}
  
negative.code: end;
  
  procedure TGmrHash.addMacro(const macro: string);
  var
    len: cardinal;
  begin
    if Fcurrent = nil then exit;
    len := length(Fcurrent.macros);
    setLength(Fcurrent.macros, len+1);
    Fcurrent.macros[len] := macro;
  end;
  
  procedure TGmrHash.clearCurrent;
  