(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-15 18:32:22 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-15 23:46:44 CET by Kim Nguyen>
*)
INCLUDE "utils.ml"
redo := top_down_run auto tree node cache !iter;
incr iter;
done;
+ at_exit (fun () -> eprintf "INFO: %i iterations\n" !iter);
let r = get_results auto tree node cache in
TRACE(Html.gen_trace (module T : Tree.Sig.S with type t = T.t) (tree));
r