1with Ada.Text_IO; use Ada.Text_IO;
2package body DInst_Pkg is
3   procedure Foo is
4   begin
5      Put_Line ("hello there");
6   end;
7end;
8