with Ada.Text_IO; use Ada.Text_IO;

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