generic
package DInst_Pkg is
   procedure Foo;
end;