let mots_de_table table =
  let liste = ref [] in
  Hashtbl.iter
    (fun mot _ -> liste := mot::!liste) table;
  !liste;;

La fonction Hashtbl.iter itère une fonction sur une table de hachage, c'est-à-dire que, si nous notons les associations dans la table { x₁ ↦ y₁, ..., x_n ↦ y_n }, Hashtbl.iter f table va exécuter (f x1 y1); ... ; (f xn yn). Ici, à chaque itération, on rajoute le mot en tête d'une liste, que l'on renvoie à la fin.