A short scheme macro demonstration(like dotimes in Common Lisp)

do-times.scm

(define-macro do-times
  (lambda (times . body)
    (let ((rest-time (gensym))
	  (loop-func-name (gensym)))
      (begin
	`(letrec ((,loop-func-name 
		   (lambda (,rest-time)
		     (if (= ,rest-time 0) '()
			 (begin
			   ,@body
			   (,loop-func-name (- ,rest-time 1)))))))
	   (,loop-func-name ,times))))))
 
 
 
(do-times 10
	  (display "hello\n"))