`sig type t = { indent : unit -> unit; dedent : unit -> unit; format_usage : string -> string; format_heading : string -> string; format_description : string -> string; format_option : char list * string list -> string list -> string option -> string; } val indented_formatter : ?level:int Pervasives.ref -> ?indent:int Pervasives.ref -> ?indent_increment:int -> ?max_help_position:int -> ?width:int -> ?short_first:bool -> unit -> BatOptParse.Formatter.t val titled_formatter : ?level:int Pervasives.ref -> ?indent:int Pervasives.ref -> ?indent_increment:int -> ?max_help_position:int -> ?width:int -> ?short_first:bool -> unit -> BatOptParse.Formatter.t val wrap : ?initial_indent:int -> ?subsequent_indent:int -> string -> int -> string list val fill : ?initial_indent:int -> ?subsequent_indent:int -> string -> int -> string end`