open Unix;;

(** Ouverture et attachement d'une socket server  un port local *)
let open_server port =
  let socket = socket PF_INET SOCK_STREAM 0 in
  setsockopt socket SO_REUSEADDR true;
  bind socket (ADDR_INET (inet_addr_anyport));
  listen socket 20;
  socket;;