var
   o : tobject;

begin
   halt(1);
end.