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"