let incr_str_list ?(default=Some []) ?(metavar = "STR") = let acc = ref [] in let coerce s = acc := s :: !acc ; !acc in fun () -> OptParse.Opt.value_option metavar default coerce (fun _ s -> Printf.sprintf "Invalid String '%s'" s)