;; 2.23
;; Give an implementation of for-each
;;

(define (for-each func items)
  (if (null? items)
      '()   ;; any return value we want
      (begin
        (func (car items))
        (for-each func (cdr items)))))

(display "the list of numbers is")
(for-each
 (lambda (x)
   (newline)
   (display x))
 (list 57 321 88))
(newline)