;; 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)))

p$ ./t

Error: (append) bad argument type - not a proper list: (99319075 99319076 99319077 99319078 99319079 99319080 99319081 99319082 99319083 99319084 99319085 99319086 99319087 99319088 99319089 99319090 99319091 99319092 99319093 99319094 99319095 99319096 99319097 99319098 99319099 99319100 99319101 99319102 99319103 99319104 99319105 99319106 99319107 99319108 99319109 99319110 99319111 99319112 99319113 99319114 99319115 99319116 99319117 99319118 99319119 99319120 99319121 99319122 99319123 99319124 99319125 99319126 99319127 99319128 99319129 99319130 99319131 99319132 99319133 99319134 99319135 99319136 99319137 99319138 99319139 99319140 99319141 99319142 99319143 99319144 99319145 99319146 99319147 99319148 99319149 99319150 99319151 99319152 99319153 99319154 99319155 99319156 99319157 99319158 99319159 99319160 99319161 99319162 99319163 99319164 99319165 99319166 99319167 99319168 99319169 99319170 99319171 99319172 99319173 99319174 99319175 99319176 99319177 99319178 99319179 99319180 99319181 99319182 99319183 99319184 99319185 99319186 99319187 99319188 99319189 99319190 99319191 99319192 99319193 99319194 99319195 99319196 99319197 99319198 99319199 99319200 99319201 99319202 99319203 99319204 99319205 99319206 99319207 99319208 99319209 99319210 99319211 99319212 99319213 99319214 99319215 99319216 99319217 99319218 99319219 99319220 99319221 99319222 99319223 99319224 99319225 99319226 99319227 99319228 99319229 99319230 99319231 99319232 99319233 99319234 99319235 99319236 99319237 99319238 99319239 99319240 99319241 99319242 99319243 99319244 99319245 99319246 99319247 99319248 99319249 99319250 99319251 99319252 99319253 99319254 99319255 99319256 99319257 99319258 99319259 99319260 99319261 99319262 99319263 99319264 99319265 99319266 99319267 99319268 99319269 99319270 99319271 99319272 99319273 99319274 99319275 99319276 99319277 99319278 99319279 99319280 99319281 99319282 99319283 99319284 99319285 99319286 99319287 99319288 99319289 99319290 99319291 99319292 99319293 99319294 99319295 99319296 99319297 99319298 99319299 99319300 99319301 99319302 99319303 99319304 99319305 99319306 99319307 99319308 99319309 99319310 99319311 99319312 99319313 99319314 99319315 99319316 99319317 99319318 99319319 99319320 99319321 99319322 99319323 99319324 99319325 99319326 99319327 99319328 99319329 99319330 99319331 99319332 99319333 99319334 99319335 99319336 99319337 99319338 99319339 99319340 99319341 99319342 99319343 99319344 99319345 99319346 99319347 99319348 99319349 99319350 99319351 99319352 99319353 99319354 99319355 99319356 99319357 99319358 99319359 99319360 99319361 99319362 99319363 99319364 99319365 99319366 99319367 99319368 99319369 99319370 99319371 99319372 99319373 99319374 99319375 99319376 99319377 99319378 99319379 99319380 99319381 99319382 99319383 99319384 99319385 99319386 99319387 99319388 99319389 99319390 99319391 99319392 99319393 99319394 99319395 99319396 99319397 99319398 99319399 99319400 99319401 99319402 99319403 99319404 99319405 99319406 99319407 99319408 99319409 99319410 99319411 99319412 99319413 99319414 99319415 99319416 99319417 99319418 99319419 99319420 99319421 99319422 99319423 99319424 99319425 99319426 99319427 99319428 99319429 99319430 99319431 99319432 99319433 99319434 99319435 99319436 99319437 99319438 99319439 99319440 99319441 99319442 99319443 99319444 99319445 99319446 99319447 99319448 99319449 99319450 99319451 99319452 99319453 99319454 99319455 99319456 99319457 99319458 99319459 99319460 99319461 99319462 99319463 99319464 99319465 99319466 99319467 99319468 99319469 99319470 99319471 99319472 99319473 99319474 99319475 99319476 99319477 99319478 99319479 99319480 99319481 99319482 99319483 99319484 99319485 99319486 99319487 99319488 99319489 99319490 99319491 99319492 99319493 99319494 99319495 99319496 99319497 99319498 99319499 99319500 99319501 99319502 99319503 99319504 99319505 99319506 99319507 99319508 99319509 99319510 99319511 99319512 99319513 99319514 99319515 99319516 99319517 99319518 99319519 99319520 99319521 99319522 99319523 99319524 99319525 99319526 99319527 99319528 99319529 99319530 99319531 99319532 99319533 99319534 99319535 99319536 99319537 99319538 99319539 99319540 99319541 99319542 99319543 99319544 99319545 99319546 99319547 99319548 99319549 99319550 99319551 99319552 99319553 99319554 99319555 99319556 99319557 99319558 99319559 99319560 99319561 99319562 99319563 99319564 99319565 99319566 99319567 99319568 99319569 99319570 99319571 99319572 99319573 99319574 99319575 99319576 99319577 99319578 99319579 99319580 99319581 99319582 99319583 99319584 . #())

	Call history:

	t.scm:17: loop	  
	t.scm:16: string=	  
	t.scm:17: read-line	  
	t.scm:18: append	  
	t.scm:17: loop	  
	t.scm:16: string=	  
	t.scm:17: read-line	  
	t.scm:18: append	  
	t.scm:17: loop	  
	t.scm:16: string=	  
	t.scm:17: read-line	  
	t.scm:18: append	  
	t.scm:17: loop	  
	t.scm:16: string=	  
	t.scm:17: read-line	  
	t.scm:18: append	  	<--

(let loop ((counter 99319075)
           (l '()))
  (if (= counter 100573152)
      (print (length l))
      (loop (+ counter 1) (append l (list counter)))))

(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))))))))