Сортировка вставками в clojure выдает ошибку StackOverFlow

(defn insert [s k]
    (let [spl (split-with #(< % k) s)]
       (concat (first spl) (list k) (last spl))))

(defn insert-sort [s]
    (reduce (fn [s k] (insert s k)) '() s))

(insert-sort (reverse (range 5000)))

) выдает ошибку переполнения стека. Что такое Я делаю что-то неправильно?