procedure Vider (Abr : in out T_ABR) is
	begin
		if Abr = Null then
			Null;
		else
			Vider (Abr.all.Sous_Arbre_Gauche);
			Vider (Abr.all.Sous_Arbre_Droit);
			Free (Abr);
		end if;
	end Vider;


	procedure Afficher (Abr : in T_Abr) is
	begin
		if Abr = Null then
			Null;
		else
			Afficher (Abr.all.Sous_Arbre_Gauche);
			Put (Abr.all.Cle);
			put (" : ");
			Put (Abr.all.Donnee, 0);
			New_Line;
			Afficher (Abr.all.Sous_Arbre_Droit);
		end if;
	end Afficher;


	procedure Afficher_Debug (Abr : in T_Abr) is

		procedure Indenter(Decalage : in Integer) is
		begin
			for I in 1..Decalage loop
				Put (' ');
			end loop;
		end Indenter;