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