Ws.IO
type 'a t = 'a Io.t
val (>>=) : 'a t -> ( 'a -> 'b t ) -> 'b t
val return : 'a -> 'a t
type ic = Io.ic
type oc = Io.oc
type conn = Io.conn
val read_line : ic -> string option t
val read : ic -> int -> string t
val write : oc -> string -> unit t
val flush : oc -> unit t