let make_string name default help = make ~name ~parse:(fun s -> s) ~print:(fun s -> s) ~default ~help ~fcli: (fun get set -> [cli_name name, Arg.String set, "str "^help]) ()