sig
type socket
exception Lost
exception Error of string
val create_socket : int -> int -> Tcp.socket
val check_socket : Tcp.socket -> Tcp.socket list
val connect : string -> int -> Tcp.socket
val write : Tcp.socket -> string -> int -> int -> string
val read : Tcp.socket -> string list
val force_read : Tcp.socket -> string
val close : Tcp.socket -> unit
end