let do_measurement ~time =
    (fun time -> Printf.printf "\013%10i%!" time),
    (fun time -> draw_configuration !configuration time)