(defun makesig (key secret)
  (let ((k (ascii-string-to-byte-array key))
        (s (ascii-string-to-byte-array secret)))
    (let ((hmac (make-hmac k :sha256)))
      (update-hmac hmac s)
      (byte-array-to-hex-string (hmac-digest hmac)))))