refactor beer clojure