;(letrec-syntax
;  ((primes (syntax-rules ()
;						 ((primes 2 1) #f)
;						 ((primes p p)
;						  (begin
;							(primes 2 (- p 1))
;							(display p)))
;						 ((primes d p)
;						  (if (zero? (remainder p d))
;							(primes 2 (- p 1))
;							(primes (+ d 1) p)))))))

(letrec-syntax
  ((primes (syntax-rules '()
						 ((primes x y) #f)))))

(primes 2 100)