let mem_array c t = (* Format.eprintf "memarray %a in@." Pretty.print_array c; *) (* iter (fun s -> Format.eprintf ">>> %a\n@." Pretty.print_array s.t_arru) t; *) TimerSubset.start (); let res = mem_array c t in TimerSubset.pause (); res