with controlled3; use controlled3;
package controlled4 is
   procedure Test_Suite;
end;