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
  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