; Find frequency of relatively prime integers. (let ((c 1000000) (π (* 4 (atan 1))) (rn ((((fileVal "RC4") "sQuelchi") 'rbi) (expt 2 60)))) (cons (+ 0.0 (/ (((fileVal "Do") 'DoF) c (lambda (_ s) (+ s (if (= 1 (gcd (rn) (rn))) 1 0))) 0) c)) (/ 6 (* π π)))) ; => (0.608712 . 0.6079271018540267) (6/π2)