Clojure with nested reduces