let comptercara a = (List.length (string_to_char_list a));;

let changerr_dico mot = let canal_sortie = open_out "/home/gabriel/Documents/dicochangé.txt" in begin output canal_sortie (mot^"\n") 0 (comptercara mot); close_out canal_sortie
	end ;;