      :<  lt
      <   lt
      :<= lte
-     <=  lte}))
-
-(defprotocol WhereBuilder
-  (build-where [construct query-builder]))
-
-(extend-protocol WhereBuilder
-  clojure.lang.IPersistentVector
-  (build-where [construct ^Select$Where query-builder]
-    (reduce
-     (fn [^Select$Where builder [query-type column value]]
-       (if-let [eq-type (query-type-map query-type)]
-         (.and builder ((query-type-map query-type) (name column) value))
-         (throw (IllegalArgumentException. (str query-type " is not a valid Clause")))
-         ))
-     query-builder
-     construct))
-  clojure.lang.IPersistentMap
-  (build-where [construct ^Select$Where query-builder]
-    (reduce
-     (fn [^Select$Where builder [column value]]
-       (.and builder (eq (name column) value)))
-     query-builder
-     construct)))
+     <=  lte})
+
+  (defprotocol WhereBuilder
+    (build-where [construct query-builder]))
+
+  (extend-protocol WhereBuilder
+    clojure.lang.IPersistentVector
+    (build-where [construct ^Select$Where query-builder]
+      (reduce
+       (fn [^Select$Where builder [query-type column value]]
+         (if-let [eq-type (query-type-map query-type)]
+           (.and builder ((query-type-map query-type) (name column) value))
+           (throw (IllegalArgumentException. (str query-type " is not a valid Clause")))
+           ))
+       query-builder
+       construct))
+    clojure.lang.IPersistentMap
+    (build-where [construct ^Select$Where query-builder]
+      (reduce
+       (fn [^Select$Where builder [column value]]
+         (.and builder (eq (name column) value)))
+       query-builder
+       construct))))
 
 
 ;;

  (fn writetime-query [query-builder]
    (.writeTime query-builder (name column))))

(defn ttl
  [column]
  (fn ttl-query [query-builder]
    (.ttl query-builder (name column))))

     (QueryBuilder/bindMarker))
  ([name]
     (QueryBuilder/bindMarker name)))

(defn timestamp
  [column-name]
  (QueryBuilder/timestamp column-name))

(defn token
  [& column-names]
