clojure.browser.repl/wrap-message

(defn wrap-message [repl t data]
  (pr-str
    {:repl repl
     :type t
     :content data
     :order (swap! order inc)}))