{ %fail }

type TTest = object
                constructor Init;
             end;

constructor TTest.Init;
begin
  exit (0);
end;

begin
end.