1. -- 
  2. -- Uwe R. Zimmer, Australia 2015 
  3. -- 
  4.  
  5. generic 
  6.  
  7.    type Element is (<>); 
  8.  
  9. package Id_Dispenser is 
  10.  
  11.    function Draw_Id return Element; 
  12.  
  13.    Out_Of_Ids : exception; 
  14.  
  15. end Id_Dispenser;