translated examples 1 and 2 to clojure