scheme-test-programs/files/sexps.scm

(define (sexps)
  (let ((exp (read)))
    (if (eof-object? exp)
	'()
	(cons exp (sexps)))))