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