 
       (catch Exception e true)
       ))
+
   (dotimes [i 1]
     (let [block-stats (block-stats "test/fixtures/test.wav")]
 ;;      (doseq [frame block-stats] (println frame))

       acc
       fields))))

(defn global-stats [frame-stats]
  (let [n (count frame-stats)
        fields (-> frame-stats first vals first (dissoc :todo) keys)

              (assoc :midi (/ (:midi f0-totals) n-f0s))
              (assoc :f0   (/ (:f0 f0-totals) n-f0s)))

          maxs {:spectral-centroid (max-for :spectral-centroid frame-stats)}]
      {:mean means
       :max maxs}
  )))
