module U = UnixLabels

let () =
  let (r1, w1) = U.pipe () in
  let (r2, w2) = U.pipe () in
  let (r3, w3) = U.pipe () in
  List.iter U.close [r1; w2];
  let _ = U.create_process
      ~prog:"r2"
      ~args:[|"r2"; "-q0"; "/bin/ls"|]
      ~stdin:w1
      ~stdout:r2
      ~stderr:r3
  in
  let cmd = "/j chown" in
  U.write w1 ~buf:cmd ~pos:0 ~len:(String.length cmd) |> ignore;
  let buf = Bytes.create 100 in
  U.read r2 ~buf ~pos:0 ~len:10 |> ignore;
  print_endline buf