package Queue_Pack_Object_Private is
type Ext_Queue_Type is new Queue_Type with private;
subtype Depth_Type is Positive range 1 .. Queue_Size;
procedure Look_Ahead