 
 (def db-uri-base "datomic:free://0.0.0.0:4334")
 
-(defn- scratch-conn
+(defn scratch-conn
   "Create a connection to an anonymous, in-memory database."
   []
   (let [uri (str "datomic:mem://" (d/squuid))]

         (zipmap users)
         aprint))

  )

     [{:db/id (d/tempid :db.part/user)
       :user/token token
       :user/email email}])
    #_(send-registry email token)
    token))


(defn- get-user-id [conn email]
