(define (my-for-each proc list)
  (if (null? list)
      (newline)
      ((lambda (x) (proc (car x))
       (my-for-each proc (cdr x))) list)))