再帰を用いたループ文
(define (loop n) (cond ((= n 0)(display 'end)) ((display n)(newline)(loop (- n 1)))))
> (loop 10) 10 9 8 7 6 5 4 3 2 1 end >
(define (loop n) (cond ((= n 0)(display 'end)) ((display n)(newline)(loop (- n 1)))))
> (loop 10) 10 9 8 7 6 5 4 3 2 1 end >