; Find a primitive root of odd prime p. (lambda (p) (let* ((ch ((((fileVal "RC4") "Seed stuff") 'rbi) (- p 3))) (gt (lambda () (+ 2 (ch))))(pw (fileVal "mod-exp"))) (let r () (let ((t (gt))) (if (= (pw t (/ (- p 1) 2) p) (- p 1)) t (r)))))) (define z (fileVal "crypto/PR"))