sig
  type 'a t
  val create :
    ?scope:[< Eliom_comet.Channel.comet_scope ] ->
    ?name:string -> ?size:int -> 'Deriving_Json.t -> 'Eliom_bus.t
  val stream : 'Eliom_bus.t -> 'Lwt_stream.t
  val write : 'Eliom_bus.t -> '-> unit
end