let str_list_option ?default ?(metavar = "STRLST") = let sep = "," in let coerce s = ExtString.String.nsplit s sep in fun () -> OptParse.Opt.value_option metavar default coerce (fun _ s -> Printf.sprintf "Invalid String '%s'" s)