             (t-attr-colfam month)
             (columns :key :name :bucket)
             (where [[> (token :key :name :bucket) (token k n b)]])
-            (limit l))))
-)
+            (limit l)))))
 
 (defn get-tattr [cluster k name time]
   (let [[month bucket slot] (decode-time time)]

                          (limit 1))))

(defn putlink [cluster links]
  (let [query (->> links
                   (map fmt-put-link)
                   (apply queries)
                   (batch-query (logged false)))]
    (client/execute cluster (client/render-query query))))

(defn dellink [cluster links]
  (let [query (->> links
                   (map fmt-del-link)
                   (apply queries)
                   (batch-query (logged false)))]
    (client/execute cluster (client/render-query query))))

(defn getlink [cluster k l & page]

             (limit +limit+)))))

(defn del-tattr [cluster attrs]
  (doseq [query (mapcat fmt-del-tattr attrs)]
    (client/execute cluster (client/render-query query))))

(defn put-kattr [cluster attrs]
  (doseq [query (mapcat fmt-put-kattr attrs)]
    (client/execute cluster (client/render-query query))))

(defn get-kattr [cluster k name]
