(defn choice [a b]
  (clojure.string/join (or (seq a) (seq b))))

(defn fizzbuzz [n]
  (let [words   (map str (cycle ["" "" "Fizz" "" "Buzz" "" "" "" "" "" "" "" "" "" "FizzBuzz"]))
        numbers (map str (rest (range)))]
    (take n (map choice words numbers))))