(defun generate-k (m)
  (mod (+ (parse-integer (sha256 m) :radix 16)
          (get-internal-real-time))
       *n*))

(defun generate-valid-k (m)
  (let ((k 0))
    (loop :while (zerop k)
          :do (setq k (generate-k m)))
    k))