type TRec = record
a : file of TRec;
end;

var r : TRec;

begin
end.