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