open Graphics;; (* val init_dessin : unit -> unit *) val affiche_plateau : (int*int) list -> (int*int) list -> unit (* val termine_dessin : unit -> unit *) val lire_coup : unit -> (int*int)