#lang sicp

(define (my-for-each func list)
  (if (null? list)
      #t
      (begin (func (car list))
             (my-for-each func (cdr list)))))