let do_move move =
if !A.root <> !selected then
( Solver.begin_move ~steps:1 move ;
Glut.idleFunc
(Some (fun () ->
if Solver.move () then
Glut.idleFunc None ;
Glut.postRedisplay ())) )
else
Printf.printf "Can't move the root !%!\n"