fizzbuzz.hy

(defn i  [x] x)
(defn f  [x] 'fizz)
(defn b  [x] 'buzz)
(defn fb [x] (+ (f x) (b x)))
(defn apply/tuple [(, a func)] (func a))
(defn enumerate/cycle [iter] (enumerate (cycle iter) :start 1))
(print (list (take 150 (map apply/tuple (enumerate/cycle [i i f i b f i i f b i f i i fb])))))