val trace : int -> int -> ('a, Format.formatter, unit, unit) format4 -> 'a val finalize_node : int -> int -> bool -> unit val gen_trace : (module Tree.S with type t = 'a) -> 'a -> unit