translated example5 into clojure