Ex-2.23

(define (for-each proc l)
  (if (not (null? l))
      (begin (proc (car l))
             (for-each proc (cdr l)))))