adding more experimental code

h2/lib2/h3-trees.adb

@@ -0,0 +1,19 @@
+
+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;