;; rmalafaia@gmail.com, 2005-08-29 ;; slightly shorter and more efficient ;; some more language features shown as well (let ((str+ string-append) (n->s number->string)) (define (bottles n) (str+ (case n ((0) "No more bottles") ((1) "One bottle") (else (str+ (n->s n) " bottles"))) " of beer")) (define (be