1. -- 
  2. with Ada.Text_IO; 
  3.  
  4. package body Test_Data is 
  5.    use Ada; 
  6.  
  7.    procedure Send (D : Message_Type_1) is 
  8.    begin 
  9.  
  10.       Text_IO.Put_Line (D.Data); 
  11.    end Send; 
  12.  
  13.    -- -- -- 
  14.  
  15.    procedure Send (D : Message_Type_2) is 
  16.    begin 
  17.       Text_IO.Put (Integer'Image (D.Int) & " | "); 
  18.  
  19.       Send (Root_Message_Type (D)); 
  20.  
  21.       Text_IO.New_Line; 
  22.    end Send; 
  23.  
  24. end Test_Data;