(defn sum [i s n]
  (if (> i n)
    s
    (sum (inc i) (+ s i) n)))


(pcalls (fn [] (println (sum 0 0 5000)))
  (fn [] (println (sum 0 0 5000)))
  (fn [] (println (sum 0 0 5000)))
  (fn [] (println (sum 0 0 5000)))
  (fn [] (println (sum 0 0 5000))))