Gilded Rose exercise in Clojure