sig
  type spec_list = (string * Arg.spec * string) list
  val init : Camlp4.??.spec_list -> unit
  val add : string -> Arg.spec -> string -> unit
  val print_usage_list : Camlp4.??.spec_list -> unit
  val ext_spec_list : unit -> Camlp4.??.spec_list
  val parse : (string -> unit) -> string array -> string list
end