sig
  type opt = char * string * (unit -> unit) option * (string -> unit) option
  val noshort : char
  val nolong : string
  exception Error of string
  val parse :
    Getopt.opt list -> (string -> unit) -> string array -> int -> int -> unit
  val parse_cmdline : Getopt.opt list -> (string -> unit) -> unit
  val set : 'Pervasives.ref -> '-> (unit -> unit) option
  val incr : int Pervasives.ref -> (unit -> unit) option
  val append : string list Pervasives.ref -> (string -> unit) option
  val atmost_once : string Pervasives.ref -> exn -> (string -> unit) option
end