let to_json l =
  File.(`Ketrew_configuration l |> to_string)