let with_process_in cmd func =
  with_file Unix.open_process_in "with_process_in" Unix.close_process_in func
    cmd