with Loop_Optimization18_Pkg; use Loop_Optimization18_Pkg;
package Loop_Optimization18 is
procedure Proc (Message : Byte_Array_Type);
end Loop_Optimization18;