type plate = int * int * int ;;
type game_statu =
   Non_term of int
  |P1 of int
  |P2 of int
  |Match_nul of int;;

let init a:plate =(0,a,a);;

let display a:plate =
  let (b,c,d)=
  match a with
     (-1,_,_) -> ("x"," "," ")
    |(_,_,_) -> (" ","X","X")
in print_string "b^c^d";;