sig
  type attribute =
      [ `Color of string
      | `Id of string
      | `Label of string
      | `Other of string * string
      | `Shape of string
      | `Style of string
      | `Weight of int ]
  type graph = string * CCKTree.Dot.attribute list CCKTree.t list
  val mk_id :
    ('a, Buffer.t, unit, CCKTree.Dot.attribute) Pervasives.format4 -> 'a
  val mk_label :
    ('a, Buffer.t, unit, CCKTree.Dot.attribute) Pervasives.format4 -> 'a
  val make :
    name:string ->
    CCKTree.Dot.attribute list CCKTree.t list -> CCKTree.Dot.graph
  val singleton :
    name:string -> CCKTree.Dot.attribute list CCKTree.t -> CCKTree.Dot.graph
  val pp_single :
    string -> CCKTree.Dot.attribute list CCKTree.t CCKTree.printer
  val pp : CCKTree.Dot.graph CCKTree.printer
  val print_to_file : string -> CCKTree.Dot.graph -> unit
  val to_file :
    ?name:string ->
    string -> CCKTree.Dot.attribute list CCKTree.t list -> unit
end