with Ada.Streams; use Ada.Streams;
with Ada.Unchecked_Deallocation;
package Streams is
type A_SEA is access all Stream_Element_Array;
procedure Delete is new Ada.Unchecked_Deallocation( Stream_Element_Array, A_SEA );
STREAM_ERROR : exception;
end Streams;