package Streams is
type A_SEA is access all Stream_Element_Array;
STREAM_ERROR : exception;
procedure Delete is new Ada.Unchecked_Deallocation