diff --git a/src/mailhead/visualize.clj b/src/mailhead/visualize.clj
index 146726f..e8ec563 100644
--- a/src/mailhead/visualize.clj
+++ b/src/mailhead/visualize.clj
@@ -9,8 +9,8 @@
     (partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
 
 (defn edges [path]
-  (let [p (map
-           #(concat % [{:label "time" :fillcolor "gray" :color "gray"}])
+  (let [p (map-indexed
+           #(concat %2 [{:label (str (inc %1)) :fillcolor "gray" :color "gray"}])
            (edge-path path))]
     (into [] (map #(into [] %)) p)))