with Ada.Text_IO; use Ada.Text_IO;

package body B.Z is

   procedure X is
   begin
      Put_Line ("Procedure X from package B.Z");
   end X;

end B.Z;
