core.clj

  (def report-chan (chan 10))
  (def upload-files (comp (map #(upload-file % report-chan))))
  (def upload-chan (chan 10 upload-files))
  (def sign-files (comp (map #(sign-file % upload-chan))))
  (def signing-chan (chan 10 sign-files))

  (def test-file
    (first (array-seq (.-files (gdom/getElement "fin")))))

  (put! signing-chan test-file)

  (go (while true
        (let [[v ch] (alts! [signing-chan upload-chan report-chan])]
          (if (= ch result-chan)
            (log v)))))