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

      (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 []

                        :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)
