1. generic 
  2.    type Parameters (<>) is limited private; 
  3.  
  4.    with procedure Pre_Sequence 
  5.      (To   : not null access Parameters) is <>; 
  6.    with procedure Post_Sequence 
  7.      (To   : not null access Parameters) is <>; 
  8.    with procedure Pre_Element 
  9.      (To   : not null access Parameters) is <>; 
  10.    with procedure Between_Element 
  11.      (To   : not null access Parameters) is <>; 
  12.    with procedure Post_Element 
  13.      (To   : not null access Parameters) is <>; 
  14.  
  15.    with procedure Output 
  16.      (Item :  Element; 
  17.       To   : not null access Parameters) is <>; 
  18. procedure DDS_Support.Sequences_Generic.Output_Generic 
  19.   (Item : not null access constant Sequence; 
  20.    To   : not null access Parameters);