#| BEGIN (Write your solution here) |#
(define (my-for-each proc list)
  (if (null? list)
      #t
      (begin
        (proc (car list))
        (my-for-each proc (cdr list)))))
#| END |#