so you want foreach
(define (foreach l p)
  (begin
    (p (car l))
    (foreach (cdr l) p)))