 
   (def t0 (t/date-time 2015 4 5))
 
-  (def tmax (t/date-time 2015 4 6))
+  (def tmax (t/date-time 2015 4 15))
 
   (->> (mc/find-maps @db "shares" {:ts {$gt t0
                                  $lt tmax}})

                 t/in-days
                 range
                 (mapv
                  (fn [h]
                    (->> (mc/find-maps @db c {:ts  {$gt t0
                                                    $lt (t/plus t0 (t/days (inc h)))}
                                              :source {$ne nil}
                                              :target {$ne nil}})
                         (pmap


  (ap)

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

  (time (degree t0 tmax :evolution))

