(defn sum [n]
  (loop [cnt n acc 0]
    (if ( zero? cnt) acc 
      (recur (dec cnt) (+' cnt acc)))))

(print (sum 100000))