;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Randomness

; really random but blocks
;(make-entropy-source-random-device)
; not so random but doesn't block
;(make-entropy-source-urandom-device)
(define (make-secret-generator)
  (let ((source (make-entropy-source-urandom-device)))
    (lambda (byte-width)
       (u8vectors->base64 (entropy-source-u8vector source byte-width)))))

(define get-cid-secret
  (make-secret-generator))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;