     (to-edge edge-label)
     (to-vertex vertex-label where))))
 
+(defn from-dedup
+  ([edge-label vertex-label] (from edge-label vertex-label {}))
+  ([edge-label vertex-label where]
+   (concat
+    (from-edge edge-label)
+    (dedup-on "from")
+    (from-vertex vertex-label where))))
+
+(defn to-dedup
+  ([edge-label vertex-label] (to edge-label vertex-label {}))
+  ([edge-label vertex-label where]
+   (concat
+    (to-edge edge-label)
+    (dedup-on "to")
+    (to-vertex vertex-label where))))
+
 (defn values
   [values]
   [{:$project

(defn dollar
  [s]
  (str "$" (name s)))

(defn where
  [where]

(defn qount
  []
  [{:$count "count"}])

(defn offset
  [n]
