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