1. -- 
  2. --  Uwe R. Zimmer, Australia, September 2011 
  3. -- 
  4.  
  5. generic 
  6.    type Id_Range is range <>; 
  7.  
  8. package Generic_Id_Generator_Sequential is 
  9.  
  10.    function Set_Id return Id_Range; 
  11.  
  12.    Out_Of_Ids : exception; 
  13.  
  14. end Generic_Id_Generator_Sequential;