let test_winner = function
  | Joueur_1_vainqueur -> print_string "Joueur 1 vainqueur";
                          true
  | Joueur_2_vainqueur -> print_string "Joueur 2 vainqueur";
                          true
  | Match_nul -> print_string "Draw!";
                 true
  | _ -> false;;