sig
  type block =
      [ `I of string * string
      | `Noblank
      | `P of string
      | `Pre of string
      | `S of string ]
  type title = string * int * string * string * string
  type t = Cmdliner.Manpage.title * Cmdliner.Manpage.block list
  val print :
    ?subst:(string -> string) ->
    [ `Groff | `Pager | `Plain ] ->
    Format.formatter -> Cmdliner.Manpage.t -> unit
end