10 times say helo.

10times.hello.scm

;; let loop
(let loop ((s 0))
           (if (< s 10)
               (begin
                 (print "hello")
                        (loop (+ 1 s)))))

;; for-each
(use srfi-1)
(for-each
 (lambda (i)
   (print "hello"))
 (iota 10))

;; do
(do ((i 0 (+ i 1)))
    ((= i 10))
  (print "hello"))

;; recursive lambda
((lambda (f)
   (f f 10))
 (lambda (f n)
   (cond
    ((< 0 n)
     (print "hello")
     (f f (- n 1))))))