(define (for-each f items)
  (cond ((null? items))
        (else
           (f (car items))
           (for-each f (cdr items)))))