   (cldb/db-rel fact e a v t)
 
   (defn facts->entities [facts & {:keys [at-t]}]
+    (println "FTE" facts at-t)
     (let [ldb (apply cldb/db facts)
           lres (cldb/with-db ldb
                  (cl/run* [q]

                               am)]))
             (into {})))))

  (defrecord Snapshot [state])

  (defn snapshot [facts t]
    )

  (defrecord VersionedAttribute [m])

  (let [facts1 [[fact 200 :type     :address      1]
                [fact 200 :street   "street 111"  1]

                [fact 101 :name     "bar3"        4]
                [fact 101 :name     "bar5"        6]
                [fact 101 :name     "bar2"        3]
                [fact 101 :name     "bar4"        5]]

        facts2 [[fact 101 :name     "bar7"        8]
                [fact 101 :name     "bar6"        7]]]

    (entities+facts->entities (facts->entities facts1) facts2)))

;;; (cltest2)

