type
  t1 = static class
    static procedure &End := exit;
  end;
  
begin
  t1.End;
end.