generic type Element is (<>); package Id_Dispenser is
type Element is (<>);
Out_Of_Ids : exception;
function Draw_Id return Element;