(defn touch-view [db ddoc view]
  (db/with-db db (db/get-view ddoc view {:reduce false :limit 0})))

(defn future-touch-view [db ddoc view]
  (let [f (future (do (touch-view db ddoc view)
		      (Thread/sleep sleepTime)
		      ))]
    @f))

(defn touch-views [views]
  (->> (map #(future-touch-view (:db %) (:ddoc %) (:view %)) views)
       cycle
       dorun))