package Loop_Optimization16_Pkg is

  type Index_Base is range 0 .. 127;

  function F return Natural;

end Loop_Optimization16_Pkg;