with Foo;

package body Bar is

   procedure P
   is
   begin
      Foo.Stuff;
   end P;

   procedure Q
   is
   begin
      Foo.Stuff;
   end Q;

   procedure R
   is
   begin
      Foo.Stuff;
   end R;

   procedure S
   is
   begin
      Foo.Stuff;
   end S;

end Bar;
