package Foo is
   Bar : Natural := 1;

   procedure Baz;

   Ber : Natural := 2;

   package Qux is
      Qaax : Natural := 3;

      procedure Corge;

      Qeex : Natural := 4;

      package Grault is
         Garply : Natural := 5;

         procedure Waldo (Jab : Natural);

         Gerply : Natural := 6;
      end Grault;

      Qiix : Natural := 7;
   end Qux;

   Bir : Natural := 8;
private
   Bor : Natural := 9;
end Foo;
