1package ABE_Pkg is 2 procedure ABE; 3 4 generic 5 package Gen is 6 procedure Force_Body; 7 end Gen; 8end ABE_Pkg; 9