generic
   type Id_Range is range <>;

package Generic_Id_Generator_Sequential is

Out_Of_Ids : exception;

function Set_Id return Id_Range;