                         :avet
                         :cust/email))))
 
+(defn title [{:keys [user-count time]}]
+  (str user-count " " (time/month time) "/" (time/day time)))
+
 (defn users-graph []
   (let [db (pcd/default-db)
         now (time/now)

      (map-indexed (fn [i user-count]
                     [:g
                      [:circle {:cx (+ padding (* x-tick-width i))
                                :cy (+ padding (- 500 (* y-cumulative-tick-width user-count)))
                                :r 5
                                :fill "blue"}]
                      [:title user-count]])
                   user-counts)])))

(defn early-access-users []

      (map-indexed (fn [i user-count]
                     [:g
                      [:circle {:cx (+ padding (* x-tick-width i))
                                :cy (+ padding (- 500 (* y-tick-width (:user-count user-count))))
                                :r 5
                                :fill "blue"
                                }]
                      [:title (title user-count)]])
                   users-per-day)]
     [:svg {:width 1200 :height 600}
      [:rect {:x 20 :y 20 :width 1000 :height 500
