(load "../sicp/chapter01/miller-rabin.scm") (define (sum-primes limit) (define (sum-iter s l) (cond ((>= l limit) s) ((prime? l 5) (sum-iter (+ s l) (+ l 2))) (else (sum-iter s (+ l 2))))) (sum-iter 2 3)) (display (sum-primes (read))) (newline) (exit)