;; Python-style rewrite

(load "search-for-primes-common.ss")
(load "search-for-primes-macro.ss")

(define (timed-prime-test n)
  (timed-function-test (lambda () (prime? n))))

(define (search-for-primes how-many start)
  (define result-list '())

  (begin
    (if (even? start)
        (inc! start))
    (while (> how-many 0)
      (let-values (((primality elapsed-time) (timed-prime-test start)))
        (begin
          (if primality
              (begin
                (dec! how-many)
                (append-to-list! result-list (cons start elapsed-time))))
          (inc! start 2))))
    result-list))