Fl_args
val make_ht : string list -> (string, unit) Hashtbl.t
val is_prefix : string -> string -> bool
val rewrite_contracted_args : (string * Arg.spec * 'a) list -> string list -> string array -> string array