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.