val print : string -> 'a -> unit
val max_printer_depth : int ref
val max_printer_steps : int ref
val ppf : Format.formatter ref