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:Format.formatter ->     ?subst:(string -> string option) ->     Cmdliner.Manpage.format -> Format.formatter -> Cmdliner.Manpage.t -> unit end