with Ada.Text_IO; 
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;
use Ada.Float_Text_IO;
with per;
use per;

package body Mn is

   procedure print(Self : in out Men) is
		begin
			Put_Line("ID is " & Self.ID);
			Put_Line("Name is " & Self.Name);
			Put_Line("Age is " & Integer'Image (Self.Age));
			Put_Line("Gender is " & Self.Gender);
			Put_Line("Height is " & Float'Image (Self.Height));		
		end print;

end Mn;