 
 (defn new-header [msg_type session-id]
   {:date (now)
+   :version protocol-version
    :msg_id (uuid)
    :username "kernel"
    :session session-id

  (:import [org.zeromq ZMQ])
  (:gen-class :main true))

(defn prep-config [args]
  (-> args first slurp json/read-str walk/keywordize-keys))



(defn kernel-info-header [message]
  (let [header (cheshire/generate-string {:msg_id (uuid)
                                          :date (now)
                                          :username (get-in message [:header :username])
                                          :session (get-in message [:header :session])
                                          :msg_type "kernel_info_reply"
                                          :version protocol-version})]
    header))

(defn close-comm-header [message]
