1. with Ada.Streams;                       use Ada.Streams; 
  2. with Ada.Unchecked_Deallocation; 
  3.  
  4. package Streams is 
  5.  
  6.     -- A named access type for Stream_Element_Arrays. 
  7.     type A_SEA is access all Stream_Element_Array; 
  8.  
  9.     -- Deletes the Stream_Element_Array. 
  10.     procedure Delete is new Ada.Unchecked_Deallocation( Stream_Element_Array, A_SEA ); 
  11.  
  12.     --raised by streams on error 
  13.     STREAM_ERROR : exception; 
  14.  
  15. end Streams;