(in-ns 'auto-ap.datomic)
(doseq [client (->> 
                (d/query {:query {:find '[?c]
                                  :in '[$]
                                  :where ['[_ :client/code ?c]]}
                          :args [(d/db (d/connect uri))]})
                (map first)
                (filter #(clojure.string/starts-with? % "ANOT" )))]
  @(d/transact (d/connect uri)
               [[:db/retractEntity [:client/code client]]])
  )
