Exercício 4 em Clojure