`sig
type block =
[ `Blocks of Cmdliner.Manpage.block list
| `I of string * string
| `Noblank
| `P of string
| `Pre of string
| `S of string ]
val escape : string -> string
type title = string * int * string * string * string
type t = Cmdliner.Manpage.title * Cmdliner.Manpage.block list
type xref =
[ `Cmd of string | `Main | `Page of string * int | `Tool of string ]
val s_name : string
val s_synopsis : string
val s_description : string
val s_commands : string
val s_arguments : string
val s_options : string
val s_common_options : string
val s_exit_status : string
val s_environment : string
val s_environment_intro : Cmdliner.Manpage.block
val s_files : string
val s_bugs : string
val s_examples : string
val s_authors : string
val s_see_also : string
val s_none : string
type format = [ `Auto | `Groff | `Pager | `Plain ]
val print :
?errs:Stdlib.Format.formatter ->
?subst:(string -> string option) ->
Cmdliner.Manpage.format ->
Stdlib.Format.formatter -> Cmdliner.Manpage.t -> unit
end`