gistfile1.txt

(def my-cat
  (fn [rf]
    (fn ([] (rf))
        ([result] (rf result))
        ([result input]
         (reduce (fn [acc val]
                   (if (or (= val :fish)
                           (= val :heat))
                      acc
                      (rf acc val)))
                 result
                 input)))))