(* Communication routines of the server *) val start_server : (in_channel -> out_channel -> unit) (* The server for the new connection*) -> unit (* Utility functions *) (* Show the socket address *) val string_of_sockaddr : Unix.sockaddr -> string