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

(fold-lines-in-file
  "ReadingLinesWithFold.scm"
  (lambda (line line-num) 
    (printf "~a: ~a ~n" line-num line)
    (add1 line-num)) 
  1)