| _ -> assert false
let count = ref 0
-let () = at_exit (fun () -> Printf.eprintf "Compute jump called %i times\n" !count)
+let () = at_exit (fun () -> Logger.verbose Format.err_formatter "Compute jump called %i times\n" !count)
module Memo = Hashtbl.Make(struct
type t = Tag.t * StateSet.t * dir
let equal (a,b,c) (d,e,f) = a == d && b == e && c == f