1signature RL_Socket = sig
2  val sendStr : ('a, Socket.active Socket.stream) Socket.sock * string -> int
3  val receive : ('a, Socket.active Socket.stream) Socket.sock -> string
4end
5