    add-sessionId
    identify-session-start
    emit-session-start-and-stop
+   calculate-dwell-time
    cleanup-prev-event
    session-boundaries-correlation))
 

    (let [stop
          (when prev-event
            (-> (cleanup-prev-event prev-event)
                (inject-as :eventName (str *session-event-basename* ".stopped"))))
          start
          (-> (cleanup-prev-event event)
              (inject-as :eventName (str *session-event-basename* ".started")))]
      (println "stop:" stop)
      (println "start:" start)
      (if stop
        [stop start]
        [start]))))





  (def proc (moebius sessionize-web-requests))

  (second
   (proc (kv/make-in-memory-kvstore) events) )

  )
