let main (p1,p2) n =
  let step1 = init n in
display step1;
  let rec f step1 = (if p1 = true then
      (let f_bet = get_bet step1 true p2 and s_bet = get_bet step1 false p2)
    else
      (let f_bet = get_bet step1 false p2 and s_bet = get_bet step1 true p2)) in
  let new_board = update step1 (f_bet,s_bet) in
  display new_board;
  if test_winner (get_status new_board) then
    ()
  else
    f new_board in
f step1;;