PROCEDURE Frank IS 
   PACKAGE Bob IS NEW Ada.Text_Io.Enumeration_Io(Fred);
