let do_measurement ~time =
    incr nb_samples;
    let nbu = nb_unsynchronized !configuration in
    total := add_int_big_int nbu !total;
    (fun time -> ()),
    (fun time -> draw_configuration !configuration time)