ocaml_socket_client.ml

let () =
  let sock = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in

  let address = Unix.inet_addr_of_string "127.0.0.1" in
  let socket_address = Unix.ADDR_INET (address, 22) in
  Unix.connect sock socket_address;
  let buffer = Bytes.create 1024 in
  let len = Unix.read sock buffer 0 (Bytes.length buffer) in
  Printf.printf "%d %s" len (Bytes.to_string buffer)

vagrant@archlinux tcp $ dune exec ./tcp.exe
21 SSH-2.0-OpenSSH_8.6