(define (foreach f l)
  (define iter '())
  (set! l (call-with-current-continuation
           (lambda (continuation)
             (set! iter continuation)
             l)))
  (if (not (null? l))
      (begin
        (f (car l))
        (iter (cdr l)))))

(foreach write '(1 2 3))