four clojure up to problem 40