fix to_list function in Dictionnaire.ml