program fjf464c;

uses GPC;

procedure f;
var f: Text;

  procedure d (var Dummy);
  begin
    WriteLn ('OK')
  end;

begin
  AssignTFDD (f, nil, nil, nil, nil, nil, nil, nil, d, nil)
end;

begin
  f
end.
