                  (repeatedly 5 #(vector (java.util.UUID/randomUUID) :junk 42))))
     (fire-rules)))
 
+(fact-events state-0)
 ;(-> [tuple-session] clara.rules.compiler/to-beta-graph clojure.pprint/pprint)
 ;(-> [tuple-session] clara.rules.compiler/to-alpha-tree clojure.pprint/pprint)
 ;(inspect/inspect tuple-session)
 ;(inspect/explain-activations tuple-session)
 
-(def trace-0 (trace/get-trace state-0))
+
 
 (defn trace-by-type [trace]
   (select-keys

                                 insert
                                 map->tuples
                                 entities-where
                                    attr-ns]]
              [clara.rules.accumulators :as acc]
              [clara.tools.inspect :as inspect]
              [clara.tools.tracing :as trace]
              [clara.rules.compiler :as com]
              [clojure.tools.namespace.repl :refer [refresh]]))
;[clara.tools.watch :as watch]



    {:added (into [] (vals (select-disjoint hashed-adds hashed-retracts)))
     :retracted (into [] (vals hashed-retracts))}))

(def trace-0 (trace/get-trace state-0))
(retractions (trace-by-type trace-0))
(insertions (trace-by-type trace-0))
(split-ops trace-0)

(entities-where state-0 :attr/a)
