module logic open common let robot board = let fmeasure = prob_fmeasure board 299 let ui pos offer = let moves = possible_moves board pos offer 5 move_or_anything (best_move (fmeasure_value fmeasure) moves) board pos offer ui