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])
    ()