Haskell & Clojure Fizzbuzz

fizzbuzz.clj

(defn fizz-buzz []
	(loop [i 1]
		(if (<= i 100)
			(do
				(if (and (= (rem i 3) 0) (= (rem i 5) 0))
					(println "fizzbuzz")
					(if (= (rem i 3) 0)
						(println "fizz")
						(if (= (rem i 5) 0)
							(println "buzz")
							(println i))))
				(recur (inc i))))))

fizzbuzz.hs

fizz x = x `mod` 3 == 0
buzz x = x `mod` 5 == 0

fizzBuzz = [
  if fizz x && buzz x then "fizzbuzz"
  else if fizz x then "fizz"
  else if buzz x then "buzz"
  else show x
  |
  x <- [1..]
  ]