(defn sec-websocket-accept [sec-websocket-key]
(let [md (MessageDigest/getInstance "SHA1")
websocket-13-guid "258EAFA5-E914-47DA-95CA-C5AB0DC85B11"]
(DatatypeConverter/printBase64Binary
(.digest md (.getBytes (str sec-websocket-key websocket-13-guid))))))