#!/usr/env/bin gosh (use srfi-1) (let ((n (read (current-input-port)))) (cond ((zero? (modulo n 15) 'FizzBuzz) (zero? (modulo n 5) 'Buzz) (zero? (modulo n 3) 'Fizz) (else n))))