      ~@body))
 
 (defn truncate-all [cluster]
-  (doseq [t [:graph :g_index :k_index :t_index :t_attr :k_attr :n_naming :g_naming]]
+  (dotimes [m 12]
+    (truncate cluster (t-attr-colfam (+ 1 m))))
+  (doseq [t [:graph :g_index :k_index :t_index :k_attr :n_naming :g_naming]]
     (truncate cluster t)))
 
 (defn fmt-put-index-opts [table data opts]

     (with {:replication {:class "SimpleStrategy" :replication_factor 1}})))
  (info (format "connecting to keyspace %s" keyspace))
  (use-keyspace cluster keyspace)
  (when-not (describe-table cluster keyspace :t_attr)
    (warn "creating table t_attr")
    (create-table
     cluster :t_attr
     (if-not-exists)
     (column-definitions {:key :uuid :name :varchar :bucket :bigint :slot :int :data :blob :primary-key [[:key :name :bucket] :slot]})
     (with {:compaction {:class "LeveledCompactionStrategy" :sstable_size_in_mb "256"}})))
  (when-not (describe-table cluster keyspace :k_attr)
    (warn "creating table k_attr")
    (create-table

  (let [time (from-long (* 1000 time-in-sec))
        bucket (quot (to-long (date-time (year time) (month time) (day time))) 1000)
        slot (- time-in-sec bucket)]
    [(month time) bucket slot]))

(defn encode-time [bucket slot]
  (+ bucket slot))

(defn t-attr-colfam [month]
  (keyword (format "t_attr_%02d" month)))

(defn use-attr-schema [cluster keyspace]
  (when-not (describe-keyspace cluster keyspace)
