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