(import std)

(define (main Unit)
  (let ((primes (sieve (range-from 2))))
    (for primes (<o display show-int))))

(define (sieve xs)
  (Iter (fun (_)
          (match (next! xs)
            (case (Pair x xs')
                  (Some (Pair x
                              (sieve (filter (<o not (flip divisible? x))
                                             xs')))))))))