sig
  exception Too_many_virtual_channels
  exception Non_unique_channel_name
  type t
  type chan_id = string
  val create : ?name:string -> unit -> Ocsigen_comet.Channels.t
  val write :
    Ocsigen_comet.Channels.t ->
    string * Ocsigen_stream.outcome Lwt.u option -> unit
  val listeners : Ocsigen_comet.Channels.t -> int
  val get_id : Ocsigen_comet.Channels.t -> Ocsigen_comet.Channels.chan_id
end