0. #lang racket
1. (define (min)
2. (current-posix-seconds))
3. (define (gcd n a)
4. (cond ((> (* a a) n) n)
5.            ((= (remainder n a) 0) a)
6.            (else (gcd n (+ a 1)))))
7. (define (prmctr n c e)
8. (if (> c 0)
9.         (cond ((= (gcd n 2) n)
10.                                         (display n)
11.                                         (newline)
12.                                         (prmctr (+ n 2) (- c 1) e))
13.                     (else (prmctr (+ n 1) c e)))
14.         (display (- (min) e))))
15. (define (prt n c)
16. (prmctr n c (min)))
17.  
18. (prt 56 6)

=>

current-posix-seconds: undefined;

cannot reference an identifier before its definition

in module: 'm