open Unix

let _ =
  let port = 4550 in
  let address = ADDR_INET (inet_addr_of_string "127.0.0.1", port) in
  let sok = socket PF_INET SOCK_STREAM 0 in
  let value = String.create 255 in

    connect sok address;
    read sok value 0 255;
    write sok value 0 (String.length value);
    close sok