let alpha board =
　　let value = eval_board board in
　　if valud < 0 then raise MonarException else value