package body X_Style_Casing.Child_1.CHILD_2 is   -- Casing_Identifier

   procedure p2 is   -- Casing_Identifier
   begin
      null;
   end p2;           -- Casing_Identifier

end X_STYLE_CASING.CHILD_1.Child_2;             -- Casing_Identifier x2
