type long = string * chartype arg = [ | `None of unit -> unit| `Optional of string option -> unit| `Required of string -> unit
]type 'a opt = {name : 'a;arg : arg;
}exception Unknown_option of stringexception Missing_argument of charval has_getopt_long : boolval has_getopt_long_only : boolval print_error : bool -> unitval getopt : string array -> short opt list -> string arrayval getopt_long : string array -> long opt list -> string arrayval getopt_long_only : string array -> long opt list -> string array