                  t/in-days
                  range
                  (mapv
-                  (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)))}
                                               :source {$ne nil}
                                               :target {$ne nil}})
                          (pmap


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

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

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


  (ap)

  (->> (inter-contact-times cascades t0 tmax :evolution)
       vals
       first
       (map :count)
       statistics
       time)

  (time (degree t0 tmax :evolution))

