function Get (Code : In T_Code;
                      From : in T_word_Tree) return T_Word;

type T_Word is
   record
      The_pattern : Patterns.T_Pattern := Patterns.Null_Pattern;
      The_Code    : Codes.T_Code := Codes.Null_Code;
   end record;

type T_Node;
   type Node_Access is access T_Node;
   type T_Node is
      record
         The_Word : T_Word;
         Left, Rigth : Node_Access;
      end record;
 
   type T_Words_Tree is
      record
         Root : Node_Access;
         Count : Natural := 0;
      end record;

function R_Get(Code : in Codes.T_Code;
                    Root : in Node_Access) return T_Word is
        The_Word : T_Word := Null_Word;
  begin
     if Root.The_Word.The_Code = Code then
        return Root.The_Word;
     else
        if (Root.Left /= null) then
           The_Word :=  R_Get(Code, Root.Left);
        end if;
        if The_Word.The_Code = Code then
           return The_Word;
        end if;
        if (Root.Rigth /= null) then
              The_Word := R_Get(Code, Root.Rigth);
        end if;
        if The_Word.The_Code = Code then
           return The_Word;
        end if;
     end if;
     return Null_Word;
  end R_Get;
 
 
 
   function Get(Code : in Codes.T_Code;
                From : in T_Words_tree) return T_Word is
 
   begin
      return R_Get(Code, From.Root);
   end Get;