anchor.diff:    s: string;
     items: TArray<string>;
     t: string;
  +  dict: TStringList; //not a TDictionary because we want sorted keys
  +  n: Integer;
  +  lang: string;
  +  vi: TStringList;
   begin
     FAllTags := TStringList.Create;
     try
  
positive.code:       FResult.Add('class procedure TLibPalasoAllTagsMap.Fill(dict: TDictionary<string,TArray<string>>);');
        FResult.Add('begin');
  
        for i := 0 to FAllTags.Count - 1 do
        begin
          // Line format: ignore '*'
          s := FAllTags[i];
          items := s.Split([' ','=','*'], TStringSplitOptions.ExcludeEmpty);
          if Length(items) = 0 then
            Continue;
          t := Format('  dict.Add(''%s'', [', [items[0]]);
          for j := 1 to High(items) do
          begin
            if j > 1 then
              t := t + ', ';
            t := t + Format('''%s''', [items[j]]);
          end;
          t := t + ']);';
          FResult.Add(t);
        end;
  
        FResult.Add('end;');
  
negative.code: 
  uses
    System.Classes,
    System.Generics.Collections,
    System.StrUtils,
    System.SysUtils;
  
  