let make_string_subst name default help =
  let get = make_string name default help in
    (fun ?(extra_subst=[]) conf ->
       subst conf extra_subst (get conf))