                                  insert
                                  map->tuples
                                  entities-where
-                                    attr-ns]]
+                                 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]]))
+              [clojure.tools.namespace.repl :refer [refresh]]
+              [clara.rules.engine :as eng]
+              [clara.rules.listener :as l])
+  (:import clara.tools.tracing.TracingListener))
 ;[clara.tools.watch :as watch]
 
 

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

(split-ops trace-0)

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

    [:add-facts :add-facts-logical :retract-facts :retract-facts-logical]))

(defn retractions [trace-by-type]
  (select-keys trace-by-type [:retract-facts :retract-facts-logical #_:accum-reduced]))

(defn insertions [trace-by-type]
  (select-keys trace-by-type [:add-facts :add-facts-logical]))
