Server versionClient versionModule Eliom_comet.Channel module Channel : sig..endtype 'a t = 'a Lwt_stream.t