let rec supprime (word,dictionnaire) =
match word,dictionnaire with
  |_,Vide -> Vide
  |"",Mot(lettre,fils,frere) -> if lettre = '*' then frere else Mot(lettre,fils,frere)
  |word,Mot(lettre,fils,frere) ->
     if word.[0]=lettre then
             match Mot(lettre,supprime(fin_de_mot(word),fils),frere) with
             |Mot(_,Vide,_) -> frere
             |_ -> Mot(lettre,supprime(fin_de_mot(word),fils),frere)
     else Mot(lettre,fils,supprime(word,frere)) ;;