pipe.scm

(import (chibi io) (chibi process))

(define (for-each-line proc port)
  (let loop ((line (read-line port)))
    (cond ((not (eof-object? line))
           (proc line)
           (loop (read-line port))))))

(call-with-process-io '("ls" "/tmp")
  (lambda (pid in out err)
    (for-each-line write-line out)))