generic
      type Id_Range is range <>;

package Id_Generator_Sequential is

Out_Of_Ids : exception;

function Set_Id return Id_Range;