package body Main_Package is

   procedure Foo
     (A, B : Integer;
      C, D, E, F, G : Integer;
      H, I : Integer) is
   begin
      null;
   end Foo;

end Main_Package;