module logic open common let robot board = let measure = metricdir_measure board let ui pos offer = let moves = possible_moves board pos offer 5 move_or_anything (best_move (measure_value measure) moves) board pos offer ui