1. with Ada.Streams;                       use Ada.Streams; 
  2. with Ada.Unchecked_Deallocation; 
  3.  
  4. package Streams is 
  5.  
  6.     type A_SEA is access all Stream_Element_Array; 
  7.  
  8.     procedure Delete is new Ada.Unchecked_Deallocation( Stream_Element_Array, A_SEA ); 
  9.  
  10.     STREAM_ERROR : exception; 
  11.  
  12. end Streams;