         out (chan)
         local-users {"user@mail.com" "P4ssw0rd"
                      "eve@mail.com" "lisp"
-                     "john" "satan"}
+                     "john" "haskell"}
         input-users {"user@mail.com" "P4ssw0rd"
                      "eve@mail.com" "lispo"
-                     "john" "satan"}
+                     "john" "haskell"}
         [new-in new-out] (auth (<!! (new-mem-store (atom
                                                     {"john" {42 {:id 42
                                                                  :causal-order {1 []}

    :meta-pub :meta-pub
    ::auth-required ::auth-required
    ::auth ::auth
    ::authed ::authed
    :unrelated))


(defn- out-dispatch [{:keys [topic]}]
  (case topic
    ::auth-required ::auth-required
    ::auth ::auth
    ::authed ::authed
    :unrelated))



                                  :branches {"master" #{2}}
                                  :schema {:type :geschichte
                                           :version 1}}}}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "häskell"}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "häskell"}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "häskell"}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "häskell"}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "häskell"}})
      (println "OUT" (<! out))
      (>! in {:topic :meta-pub,
              :peer "STAGE",
              :metas {"john" {42 {:id 42
                                  :causal-order {1 []
                                                 2 [1]}
                                  :last-update (java.util.Date. 0)
                                  :description "Bookmark collection."
                                  :head "master"
                                  :branches {"master" #{2}}
                                  :schema {:type :geschichte
                                           :version 1}}}}})
      (println "OUT" (<! out))
      (>! in {:topic ::auth :users {"john" "haskell"}})
      (println "OUT" (<! out))
      ))


  (println "\n")


