gistfile1.txt

user=> (def data [1 20 30 40 50])
user=> (defn output [sum d] (if (= 0 (mod sum 2)) (println sum)) (inc sum))
user=> (reduce output 0 data)
0
2
4
5