let rec get_bet ((a,b,c):plate) p1 p2 =
if p1 = true then
  play ((a,b,c):plate) p2
else
  let f x =
(let ai = ask_int () in
  if ai>x then
    (print_string "Are you dumb ? \n"; get_bet (a,b,c) p1 p2)
 else  (if
    ai<0 then
    (print_string"I think the cheat mode is disabled ! Shame on you !";get_bet (a,b,c) p1 p2)
else
    ai))in
if p2=true then
f b
else
f c;;