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