package Loop_Optimization4_Pkg is

   Max_Debug_Buffer_Len : Natural := 8 * 1024;
   Debug_Buffer : String (1 .. Max_Debug_Buffer_Len);
   Debug_Buffer_Len : Natural range 0 .. Max_Debug_Buffer_Len;

   procedure Add (Phrase : String);

end Loop_Optimization4_Pkg;