program genericsdemo;

{$mode delphi}

uses fgl;

type TMyDictionary = class (TFPGMap<String, TMyDictionary>) end;

// for delphi:
// uses generics.collections;
// type TMyDictionary = class (TDictionary<String, TMyDictionary>) end;

begin

WriteLn('Ok');

end.