with Ada.Text_IO; use Ada.Text_IO;

package body B.R is

   procedure T is
   begin
      Put_Line ("Procedure T from package B.R");
   end T;

end B.R;
