sig   val pf : Format.formatter -> ('a, Format.formatter, unit) format -> 'a   val kpf :     (Format.formatter -> 'a) ->     Format.formatter -> ('b, Format.formatter, unit, 'a) format4 -> 'b   val strf : ('a, Format.formatter, unit, string) format4 -> 'a   val kstrf :     (string -> 'a) -> ('b, Format.formatter, unit, 'a) format4 -> 'b   val strf_like :     Format.formatter -> ('a, Format.formatter, unit, string) format4 -> 'a   val with_buffer : ?like:Format.formatter -> Buffer.t -> Format.formatter   val stdout : Format.formatter   val stderr : Format.formatter   val pr : ('a, Format.formatter, unit) format -> 'a   val epr : ('a, Format.formatter, unit) format -> 'a   type 'a t = Format.formatter -> '-> unit   val nop : 'a t   val cut : unit t   val sp : unit t   val const : 'a t -> '-> unit t   val unit : (unit, Format.formatter, unit) format -> unit t   val fmt : ('a, Format.formatter, unit) format -> Format.formatter -> 'a   val always : (unit, Format.formatter, unit) format -> 'a t   val bool : bool t   val int : int t   val nativeint : nativeint t   val int32 : int32 t   val int64 : int64 t   val uint : int t   val unativeint : nativeint t   val uint32 : int32 t   val uint64 : int64 t   val float : float t   val float_dfrac : int -> float t   val float_dsig : int -> float t   val char : char t   val string : string t   val buffer : Buffer.t t   val exn : exn t   val exn_backtrace : (exn * Printexc.raw_backtrace) t   val pair : ?sep:unit t -> 'a t -> 'b t -> ('a * 'b) t   val option : ?none:unit t -> 'a t -> 'a option t   val result : ok:'a t -> error:'b t -> ('a, 'b) Result.result t   val list : ?sep:unit t -> 'a t -> 'a list t   val array : ?sep:unit t -> 'a t -> 'a array t   val hashtbl : ?sep:unit t -> ('a * 'b) t -> ('a, 'b) Hashtbl.t t   val queue : ?sep:unit t -> 'a t -> 'Queue.t t   val stack : ?sep:unit t -> 'a t -> 'Stack.t t   val iter : ?sep:unit t -> (('-> unit) -> '-> unit) -> 'a t -> 'b t   val iter_bindings :     ?sep:unit t -> (('-> '-> unit) -> '-> unit) -> ('a * 'b) t -> 'c t   val using : ('-> 'b) -> 'b t -> 'a t   module Dump :     sig       val signal : int Fmt.t       val pair : 'Fmt.t -> 'Fmt.t -> ('a * 'b) Fmt.t       val option : 'Fmt.t -> 'a option Fmt.t       val result :         ok:'Fmt.t -> error:'Fmt.t -> ('a, 'b) Result.result Fmt.t       val list : 'Fmt.t -> 'a list Fmt.t       val array : 'Fmt.t -> 'a array Fmt.t       val hashtbl : 'Fmt.t -> 'Fmt.t -> ('a, 'b) Hashtbl.t Fmt.t       val queue : 'Fmt.t -> 'Queue.t Fmt.t       val stack : 'Fmt.t -> 'Stack.t Fmt.t       val iter :         (('-> unit) -> '-> unit) -> 'Fmt.t -> 'Fmt.t -> 'Fmt.t       val iter_bindings :         (('-> '-> unit) -> '-> unit) ->         'Fmt.t -> 'Fmt.t -> 'Fmt.t -> 'Fmt.t     end   val box : ?indent:int -> 'a t -> 'a t   val hbox : 'a t -> 'a t   val vbox : ?indent:int -> 'a t -> 'a t   val hvbox : ?indent:int -> 'a t -> 'a t   val parens : 'a t -> 'a t   val brackets : 'a t -> 'a t   val braces : 'a t -> 'a t   val quote : ?mark:string -> 'a t -> 'a t   val words : string t   val paragraphs : string t   val text : string t   val lines : string t   val text_loc : ((int * int) * (int * int)) t   val append : 'a t -> 'b t -> ('a * 'b) t   val prefix : unit t -> 'a t -> 'a t   val suffix : unit t -> 'a t -> 'a t   val byte_size : int t   val bi_byte_size : int t   val if_utf_8 : 'a t -> 'a t -> 'a t   val utf_8 : Format.formatter -> bool   val set_utf_8 : Format.formatter -> bool -> unit   type style =       [ `Black       | `Blue       | `Bold       | `Cyan       | `Green       | `Magenta       | `None       | `Red       | `Underline       | `White       | `Yellow ]   val styled : style -> 'a t -> 'a t   val styled_unit : style -> (unit, Format.formatter, unit) format -> unit t   type style_renderer = [ `Ansi_tty | `None ]   val style_renderer : Format.formatter -> style_renderer   val set_style_renderer : Format.formatter -> style_renderer -> unit   val of_to_string : ('-> string) -> 'a t   val to_to_string : 'a t -> '-> string end