let str_list_option ?(default=Some []) ?(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)