src/html.mli

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