(load "goof.scm") (define (erathostenes n) (define vec (make-vector n #t)) (loop/list ((:for i (up-from 2 (to n))) (:when (vector-ref vec i))) (loop ((:for j (up-from (* 2 i) (to n) (by i)))) (vector-set! vec j #f)) i))