1package Loop_Optimization5_Pkg is
2
3  type String_Access is access all String;
4  function Init return String;
5  function Locate (S : String) return String_Access;
6
7end Loop_Optimization5_Pkg;
8