with Text_IO; use Text_IO;
procedure Forever is
begin
 loop
  Put_Line("Hello again!");
 end loop;
end Forever;