(defn multiplo-3-o-5? [n]
  (or
    (zero? (mod n 3))
    (zero? (mod n 5))))

(let [lista     (range 2 1000)
      lista_mul (filter multiplo-3-o-5? lista)]
  (println (apply + lista_mul)))