with Ada.Text_IO; use Ada.Text_IO;

with Tree;

procedure Main is
   package IntTree is new Tree (Integer);
   T : IntTree.Tree_Access := new IntTree.Tree;
begin
   T.Left := new IntTree.Tree;
   T.Right := new IntTree.Tree;
   T.Right.Left := new IntTree.Tree;

   Put_Line ("Tree height:" & IntTree.Height (T)'Image);
end Main;