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