let lit_et_affiche_instance ~file = let instance_locale = lecture_instance ~file:file in afficher_instance instance_locale; Graphics.set_window_title ("Projet Puzzle : instance dans le fichier \""^(file)^"\"")