posting my solution about the exercise 171 on 4clojure