type t = val parse : string array -> string list * t val parse_argv : unit -> string list * t