;; CHICKEN
;; (c)2008-2011 The Chicken Team
;; (c)2000-2007 Felix L. Winkelmann
;; Version 4.7.0 
;; linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
;; compiled 2012-03-11 on brynhild.archlinux.org (Linux)

;; Linux laptop.saturn.net 3.3.5-1-ARCH #1 SMP PREEMPT Mon May 7 19:57:51 CEST 2012 x86_64 Intel(R) Core(TM)2 Duo CPU T7500 @ 2.20GHz GenuineIntel GNU/Linux

(use srfi-13)

(call-with-output-file "article-list.txt"
  (lambda (article-list-port)
    (let loop ((counter 99319075))
      (write-line (number->string counter) article-list-port)
      (if (= counter 100573152)
          (write-line "." article-list-port)
          (loop (+ counter 1))))))

(call-with-input-file "article-list.txt"
  (lambda (article-list-port)
    (let loop ((current-line (read-line article-list-port))
               (articles '()))
      (unless (string= current-line ".")
              (loop (read-line article-list-port)
                    (append articles (list (string->number current-line)))))
      articles)))