              (limit +limit+)))))
 
 (defn del-tattr [cluster attrs]
-  (let [query (->> attrs
-                   (mapcat fmt-del-tattr)
-                   (apply queries)
-                   (batch-query (logged false))
-                   client/render-query)]
-    (client/execute cluster query)))
+  (doseq [query (mapcat fmt-del-tattr attrs)]
+    (client/execute cluster (client/render-query query))))
 
 (defn put-kattr [cluster attrs]
-  (let [query (->> attrs
-                   (mapcat fmt-put-kattr)
-                   (apply queries)
-                   (batch-query (logged false)))]
+  (doseq [query (mapcat fmt-put-kattr attrs)]
     (client/execute cluster (client/render-query query))))
 
 (defn get-kattr [cluster k name]

                       (limit +limit+))))

(defn put-tattr [cluster attrs]
  (let [query (->> attrs
                   (mapcat fmt-put-tattr)
                   (apply queries)
                   (batch-query (logged false)))]
    (client/execute cluster (client/render-query query))))

(defn enum-tattr

                             :name (:name data)})))

(defn put-index [cluster table indexes]
  (doseq [query (map (partial fmt-put-index table) indexes)]
    (client/execute cluster (client/render-query query))))

(defn getguid0 [cluster user tree kind node]
