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