let begin_move_in constraints steps =
    goal := constraints ;
    rem_steps := (match steps with None -> 10 | Some i -> i) ;
    for i = 0 to (Array.length !goal)-1 do
      match !goal.(i) with
        | None -> ()
        | Some d -> !goal.(i) <- Some (d+.(get_pos_of_precise i))
    done