(define (bottles n) (cond ((= n 0) "No more bottles of beer") ((= n 1) "One bottle of beer") (else (string-append (integer->string n) " bottles of beer")))) (define (beer n) (if (>= n 0) (append (list (
)))) (beer (- n 1))) '())) (define beers-number 99) (define-service (beers) ( (
(