let generate_config_file ~path config : KEDSL.Program.t =
let open KEDSL in
Program.(
shf "echo '[user]' > %s" path
&& chain
(List.map config.parameters (fun (k, v) ->
shf "echo '%s = %s' >> %s" k v path))
)