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