let do_measurement ~time =
    if power_of_2 time then (* should be moved into a parameter like " *)
      (let nbu = nb_unsynchronized !configuration in
       if nbu = 0 then (
         Printf.printf "%i%!" time;
         if nb_zero !configuration = dimension
         then Printf.printf "t%!"
         else Printf.printf "i%!";
         exit 0));
    (fun time -> ()),
    (fun time -> draw_configuration !configuration time)