type plate = int * int * int ;;
let display a:plate =
  match a with
    |(-1,p1,p2) -> (c,d,e) in ("X"," "," ")
    |(-0,p1,p2) -> (c,d,e) in (" ","X"," ")
    |(1,p1,p2) ->  (c,d,e) in (" "," ","X")
    |(a,p1,p2) when a < (-1) -> print_string "le joueur 1 a gagner"
    |(_,p1,p2) -> print_string "le joueur 2 a gagner"
 in
print_string "le joueur 1 a:";
print_int p1;
print_newline();
print_string "| "^c^" |";
print_newline();
print_string "| "^d^" |";
print_newline();
print_string "| "^e^" |";
print_newline();
print_string "le joueur 2 a"
print_int p2;;

display (-5,20,50);;