1. generic 
  2.  
  3.    type Element is (<>); 
  4.  
  5. package Id_Dispenser is 
  6.  
  7.    function Draw_Id return Element; 
  8.  
  9. end Id_Dispenser;