package body H3.Trees is

	procedure Add_Node (Tr: in out Tree; N: in Node) is
	begin 
		--Tr.Nodes, 
		
		null;
	end Add_Node;

	procedure Free_Node (Tr: in out Tree; N: in out Node) is
	begin
		--case N.Code is
		--	when NODE_...
		--end case;
		null;
	end Free_Node;

end H3.Trees;