Communicating with an ssh process in OCaml

ssh_process.ml

let output_command channel cmd = output_string channel (cmd ^ "\n")

let do_ssh_hostname () =
  let oc_in, oc_out = Unix.open_process "ssh -T hostname" in
  output_command oc_out "hostname";
  flush oc_out;
  try
    Printf.printf "%s\n" (input_line oc_in)
  with
    End_of_file -> ();
  ignore (Unix.close_process (oc_in, oc_out)) ;;

let () = do_ssh_hostname ()