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