(* test out tcp stuff *)

open Unix
open Printf


let _ =
  let s = socket PF_INET SOCK_STREAM 0 in
  let s, ADDR_INET(ip,port) = accept s in
  printf "%s:%d\n" (string_of_inet_addr ip) port