simple_shell.clj

(defn sh
  [dir & args]
  (let [proc (.exec (Runtime/getRuntime)
                    ^"[Ljava.lang.String;" (into-array args)
                    (make-array String 0)
                    (io/as-file dir))]
    (with-open [stdout (.getInputStream proc)
                stderr (.getErrorStream proc)]
      (future (io/copy stdout *out*))
      (future (io/copy stderr *err*))
      (.waitFor proc) ;; important!
      ))