let a () =
  (* Function A *)
  let socket = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
  begin
   Unix.set_nonblock socket ;
   try
    Unix.connect
      socket
      (Unix.ADDR_INET((Unix.gethostbyname "google.com").Unix.h_addr_list.(0),80)) ;
    with
      Unix.Unix_error(Unix.EWOULDBLOCK, _, _) ->
        let _, w, _ = Unix.select [] [socket] [] 3. in
        if w = [] then
          Printf.printf "Connection timedouti\n" ;
        Unix.clear_nonblock socket
  end

let b () =
  (* Function B *)
  let socket = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
  Unix.connect
    socket
    (Unix.ADDR_INET((Unix.gethostbyname "google.com").Unix.h_addr_list.(0),80)) ;
  let _,w,_ = Unix.select [] [socket] [] 3. in
  if w = [] then
    Printf.printf "Write timedout!\n"
  else
    try
      ignore(Unix.read socket "foobarlol" 0 4)
    with Unix.Unix_error (e,_,_) -> Printf.printf "Unix error: %s\n" (Unix.error_message e)

let () = a (); b ()