     (->> cs
          (map
           (fn [c]
-            (let [hour-range (range (t/in-days (t/interval t0 tmax)))]
-              (->> hour-range
+            (let [day-range (range (t/in-days (t/interval t0 tmax)))]
+              (->> day-range
                    (pmap
-                    (fn [h]
+                    (fn [d]
                       (->> (mc/find-maps @db c {:ts {$gt t0
-                                                     $lt (t/plus t0 (t/days (inc h)))}})
+                                                     $lt (t/plus t0 (t/days (inc d)))}})
                            (pmap :ts)
                            (remove nil?)
                            (partition 2 1)


  (ap)

  (time (inter-contact-times cascades t0 tmax :evolution))

  (time (degree t0 tmax :evolution))



  (def t0 (t/date-time 2015 4 5))

  (def tmax (t/date-time 2015 4 15))

  (->> (mc/find-maps @db "shares" {:ts {$gt t0
                                 $lt tmax}})
