cpu-peg.scm:
-----
(use srfi-27 entropy-unix)

(define (make-secret-generator)
  (let ((source (make-entropy-source-urandom-device)))
    (lambda (byte-width)
       (entropy-source-u8vector source byte-width))))

((make-secret-generator) 12)

-----

csi -n cpu-peg.scm &
top

-----

Wait for a minute or so. Eventually csi takes up 99.9% of CPU.