                              :name (:name data)})))
 
 (defn put-index [cluster table indexes]
-  (let [query (->> indexes
-                   (map (partial fmt-put-index table))
-                   (apply queries)
-                   (batch-query (logged false)))]
+  (doseq [query (map (partial fmt-put-index table) indexes)]
     (client/execute cluster (client/render-query query))))
 
 (defn getguid0 [cluster user tree kind node]

             (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)))

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

(defn get-kattr [cluster k name]

                          (limit 1))))

(defn putlink [cluster links]
  (doseq [query (map fmt-put-link links)]
    (client/execute cluster (client/render-query query))))

(defn dellink [cluster links]
  (doseq [query (map fmt-del-link links)]
    (client/execute cluster (client/render-query query))))

(defn getlink [cluster k l & page]
