sig
  val pp : t CCFormat.printer
  val to_string : t -> string
  val pp_depth : ?hooks:print_hook list -> int -> t CCFormat.printer
end