let demande_confirmation file =
        

(** Comme on est poli, on demande confirmation avant d'écraser un fichier déja existant ! *)


        print_string ("Projet Puzzle - ecriture_instance : le fichier '"^file^"' existe deja. Voulez-vous l'ecraser ? [O/n]\n");
(* A voir comment adapter cela après avec l'interface graphique. Peut etre l'enlever. *)
        match (read_line ()) with
                |"n"        ->        raise Ecriture_refusee;
                | _        -> ()