(defn inner
  [i]
  (loop [j 1]
    (if (= 0 (rem i j))
      (if (< j 20)
        (recur (+ 1 j))
        i)
      nil)))

(defn loops
  []
  (loop [i 20]
    (let [result (inner i)]
      (if result
        (print (format "Number %d\n" result))
        (recur (+ i 20))))))

(defn time-me []
  (time (loops)))

##</code><code>##

(time-me)
Number 232792560
"Elapsed time: 10865.715 msecs"
nil

##</code><code>##

joost-diepenmaats-macbook:~ joost$ time perl test.pl
Number: 232792560

real	0m19.568s
user	0m19.078s
sys	0m0.060s