Исправление Debasher, 25.12.14 09:12 (текущая версия) :
Исходная версия Debasher, 25.12.14 09:11:
(for [x [0 1 2 3 4 5 6 7 8 9] :let [y (* x 3)] :when (even? y) :while (< x 7)] y)