(defn three-or-five [num]
  (if (== (mod num 5) 0)
    num
    (if (== (mod num 3) 0)
      num
      0)))

(defn produce-list [range]
  (loop [total 0
         current 0]
    (do
      (if (== current range)
        total
        (recur (+ total (three-or-five current))
                 (+ current 1))))))