   ([paths] (scanpaths paths (chan)))
   ([input-paths out]
      (go
-       (let [paths (atom input-paths)]
+       (let [paths (atom (vec input-paths))]
          (while @paths
            (try
              (let [path (peek @paths)]

       (log (<? (is-dir? test-path)))
       (catch js/Error e
         (.error js/console "Node:" e))))
(go
  (log (<! (dochan [file (show-lookup test-path)]
                   (log file)))))


(defn has-video-extension? [path] (match-extensions? path #{"mkv" "avi"}))

(defn show-lookup [path]
  (->> (scandir path)
       (r/filter is-file?)
       (r/filter has-video-extension?)))

