clojure performance

(set! *unchecked-math* true)

(time (loop [result 0 i 0]
        (if (< i 10000)
          (recur
           (+ result
              (long
               (loop [result 0 j 0]
                 (if (< j 10000)
                   (recur (+ result (long (rand 1000))) (inc j))
                   result))))
           (inc i))
          result)))

(time (loop [result 0
             i 0]
        (if (< i 10000)
          (recur (+ result (loop [result 0
                                  j 0]
                             (if (< j 10000)
                               (recur (+ result (int (rand 1000)))
                                      (+ j 1))
                               result)))
                 (+ i 1))
          result)))

;; Result:
;; $ clojure1.3 3.clj
;; "Elapsed time: 4854.762678 msecs"
;; "Elapsed time: 4623.918518 msecs"