with Ada.Text_IO;

procedure Hello is
  package TIO renames Ada.Text_IO;
begin
  TIO.Put_Line ("Hello World!");
end Hello;