1 2 3 4 5
val stanza_open : string -> string val stanza_close : string val connect : string -> (string Lwt_stream.t * (string option -> unit)) Lwt.t