(defun ajoute (mot arbre)
  (cond
  ((atom arbre) (list mot))
    ((french-string>= mot (car arbre)) (list (car arbre) (car (cdr arbre)) (ajoute mot (car (cdr (cdr arbre))))))
    ((list (car arbre) (ajoute mot (car (cdr arbre))) (car (cdr (cdr arbre))))) ) )