Fizzbuzz gauche

fizzbuzz.scm

#!/usr/local/bin/gosh                                            
                                                                
(define fizzbuzz
  (lambda (x)
    (if (> x 1) (fizzbuzz (- x 1))
        (cond
         ((= (modulo x 15) 0) (display x ":FizzBuzz"))
         ((= (modulo x 3) 0) (display x ":Fizz"))
         ((= (modulo x 5) 0) (display x ":Buzz"))
         (else (display x))
         )
        )
    )
(define (main args)
  (fizzbuzz ３０)
  )