with Search_Trees;

procedure Dummy
is


   procedure Put
     (Element : in Integer)
   is
   begin
      --  ...
   end Put;

   package Integer_Trees is new Search_Trees
     (Item_Type => Integer,
      "<"       => "<",
      Visit     => Put);

   package Date_Trees is new Search_Trees
     (Item_Type => Ada.Calendar.Time,
      "<"       => Ada.Calendar."<",
      Visit     => Put);

begin
   Ada.Integer_Text_IO.Put (125, 0);

   Ada.Text_IO.Get_Line (Buffer, Last);
   --  Vermutung:
   Pos := Ada.Strings.Fixed.Index
     (Buffer, ".");
   --  interssante Frage:
   --  was passiert wenn kein "."
   --  enthalten ist

end Dummy;