package Allegro_Ids is
type AL_ID is private;
AL_ID_NONE : constant AL_ID;
function To_AL_ID
function To_String