 (comment ;; for use in REPL
   (-main "5000")
   @current-system-for-repl
-  @tmp-sess-atm
   )

      conj
      (fn [change-events]
        (let [new-events (new-events-filtered change-events last-event-id desired-events)]
          (info (str "Notifying about new events;evts" new-events ",for lastId " last-event-id " and filter " (vec desired-events) "; all evts " change-events)) ;; TODO remove this log
         ;; check if match any of the desired ones, send them if true
          (if (seq new-events)
            (do

;; TIME USED: (time-in-hrs + 3.5 1.5 1 + 1) + (5h lørdag, 1t søndag)
;; incl.: learning and setting up heroku (1h), learning/troubleshooting (2+h)

(defonce ^{:static true} server-stop-fn (atom nil))

(defn -main [port] ;; entry point
  (let [port (Integer/parseInt port)
