scheme-test-programs/functions/repeat.scm

(define (repeat thunk n)
  (if (= 0 n)
      #t
      (begin (thunk)
	     (repeat thunk (- n 1)))))