AhrazA

(require '(clojure.java [io :as io]))

(defn zip-file-entries [filepath]
  (let [is (io/input-stream filepath)
        zin (java.util.zip.ZipInputStream. is)]
    ((fn proc-entry [zin] 
      (if-let [entry (.getNextEntry zin)]
        (if (not (.isDirectory entry))
          (do
            (let [in (java.io.BufferedInputStream. zin)