sig
  type cp =
      String of string
    | Int of int
    | Float of float
    | List of Config_file.Raw.cp list
    | Tuple of Config_file.Raw.cp list
    | Section of (string * Config_file.Raw.cp) list
  val of_string : string -> Config_file.Raw.cp
  val to_channel : Pervasives.out_channel -> Config_file.Raw.cp -> unit
end