#!/usr/local/bin/gosh
(use srfi-1)
(for-each 
 print
 (map
  (lambda (x) 
    (cond 
     ((= (modulo x 15) 0) "FizzBuzz")
     ((= (modulo x 5) 0) "Buzz")
     ((= (modulo x 3) 0) "Fizz")
     (else x)))
  (iota 30 1)))

(define (>= x y) (not (< x y)))
(define (sum-of-smaller-two x y z)
	(cond ((and (>= x y) (>= x z)) (+ y z))
		((and (>= y x) (>= y z)) (+ x z))
		((and (>= z x) (>= z y)) (+ x y))))

(sum-of-smaller-two 1 2 3)