   [stream]
   (doseq [msg @history]
     (stream/put! stream (pr-str msg))))
+
+(defn send-anon!
+  [stream]
+  @(stream/put! stream (pr-str [:server/token (uuid)])))
 
 ;; API
 ;; [:client/new-name "string"

    (log/info "connected:" auth-token)
    (async/go (log/info "client connect")
              (add-stream! stream auth-token)
              (catch-up! stream)
              (loop []
                (when-let [msg @(stream/take! stream)]


(defn- uuid
  []
  (str "anon-" (java.util.UUID/randomUUID)))

(defn- now
  []
