The FizzBuzz problem in "moderately idiomatic" Clojure

fizzbuzz.clj

(defn fizzbuzz
  "Prints the numbers from 1 to 100. But for multiples of three prints
   'Fizz' instead of the number and for the multiples of five prints
   'Buzz'. For numbers which are multiples of both three and five prints
   'FizzBuzz'"
  []
  (doall
   (map
    #(println
      (some
       (fn [x] (when (seq x) x)) ;; print the first non-empty from:
       [(str (nth ["Fizz"] (mod % 3) "") (nth ["Buzz"] (mod % 5) ""))
        (str %)]))
    (range 1 101))))

(fizzbuzz)