--
with Ada.Text_IO;
package body Test_Data is
use Ada;
procedure Send (D : Message_Type_1) is
begin
Text_IO.Put_Line (D.Data);
end Send;
-- -- --
procedure Send (D : Message_Type_2) is
begin
Text_IO.Put (Integer'Image (D.Int) & " | ");
Send (Root_Message_Type (D));
Text_IO.New_Line;
end Send;
end Test_Data;