         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 []}

                                  :branches {"master" #{2}}
                                  :schema {:type :geschichte
                                           :version 1}}}}})
      (println "NEW-IN" (<! new-in))
      ))

  (println "\n")



                               (atom #{})
                               [in out])]

    #_(go-loop [o (<! out)]
      (println "OUT" o)
      (recur (<! out)))
    (go-loop [i (<! new-in)]
      (println "NEW-IN" i)
      (recur (<! new-in)))

    (go
      (>! in {:topic :meta-pub,
              :peer "STAGE",
