sig
  type 'a t
  val stream : 'Eliom_bus.t -> 'Lwt_stream.t
  val original_stream : 'Eliom_bus.t -> 'Lwt_stream.t
  val write : 'Eliom_bus.t -> '-> unit Lwt.t
  val close : 'Eliom_bus.t -> unit
  val set_queue_size : 'Eliom_bus.t -> int -> unit
  val set_time_before_flush : 'Eliom_bus.t -> float -> unit
  val force_link : unit
end