(** Conversion d'une chaîne de caratères en n° de port tcp *)
let port_of_string port =
  try
    try
      (getservbyname port "tcp").s_port
    with Not_found -> int_of_string port
  with _ -> raise (Failure "port_of_string");;