let main () =
      if with_drawings then
        begin
          Topo.init_drawings ~simulation_time:time_sampling;
          Graphics.auto_synchronize false
        end;
      if time_transient > 0 then
        begin
          Printf.printf "         0%!";
          for time = 1 to pred time_transient do
            Experiment1.do_next_step (); Printf.printf "\013%10i%!" time
          done
        end;
      Experiment1.at_first_measurement ();
      do_measurement time_transient;
      for time = succ time_transient to total_time do
        Experiment1.do_next_step ();
        if (time - time_transient) mod time_stroboscope = 0 then
          do_measurement time
      done;
      Experiment1.at_last_measurement ()