(use numbers)

(time (let lp ((i 0))
        (when (<= i 10000000)
          (lp (fx+ i 1)))))