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