現在ある言語の中でどれが最高？

ループってのが何をさしてるのかがわからんが。
SICPからのコピペなら、

(define (count-change amount)
(cc amount 5))

(define (cc amount kinds-of-coins)
(cond ((= amount 0) 1)
((or (< amount 0) (= kinds-of-coins 0)) 0)
(else (+ (cc amount
(- kinds-of-coins 1))
(cc (- amount
(first-denomination kinds-of-coins))
kinds-of-coins)))))

(define (first-denomination kinds-of-coins)
(cond ((= kinds-of-coins 1) 1)
((= kinds-of-coins 2) 5)
((= kinds-of-coins 3) 10)
((= kinds-of-coins 4) 25)
((= kinds-of-coins 5) 50)))

はループ？

わかりづらいのでもうちょっとシンプルな例。
http://www.edu.cs.kobe-u.ac.jp/Enshu6/2000/scheme_web/lambda_exercise.html#2
からのコピペだが、
(define (infinite-enumerate n) (cons n
(lambda () (infinite-enumerate (+ n 1)))))
(define (head inf-list) (car inf-list))
(define (tail inf-list)
(let ((rest (cdr inf-list))) (rest)))
(define (nth-inf-list n inf-list)
(if (= n 0) (head inf-list)
(nth-inf-list (- n 1) (tail inf-list))))

はループ？