sig
  type part =
      Name
    | Synopsis
    | Short_description
    | Description
    | Examples
    | Author
    | Reporting_bugs
    | Copyright
    | Version
    | See_also
  val parse :
    (string * (char * string * string * string * (string -> unit)) list) list ->
    (string -> unit) -> (Gnuarg.part * string) list -> unit
end