(def counter (atom 10))

(while (>= @counter 0)
  (let []
    (print @counter)
    (newline)
    (swap! counter (fn [x] (- x 1)))))