s c h e m e w i k i . o r g

(for-each-line-in-file
  "ReadingLines.scm"
  (let ((line-num 0))
    (lambda (line) 
      (printf "~a: ~a" line-num line)
      (set! line-num (add1 line-num)))))