(load "../sicp/chapter01/miller-rabin.scm") (define (nth-prime n) (define (try-iter p nth) (if (prime? p 5) (if (= nth (- n 1)) p (try-iter (+ p 2) (+ nth 1))) (try-iter (+ p 2) nth))) (if (= n 1) 2 (try-iter 3 1))) (display (nth-prime (read))) (newline) (exit)