Insertion sort in clojure

insertion_sort.clj

(defn max_first [coll]
  "Function which returns collection with firt number beign maximum of entire collection"
  (loop [collection (rest coll) minimum (seq [(first coll)])]
    (if (empty? collection) minimum
      (recur (rest collection) 
        (if (> (first collection) (first minimum))
          (cons (first collection) minimum)
          ;since first argument of cons is number,I need to split 'minimum' into two subsequences.
          (cons (first minimum) (cons (first collection) (rest minimum))))))))

(defn insertion_sort [coll]
  (loop [collection coll result (seq [])]
    (if (empty? collection) result
      (let [temp (max_first collection)]
        (recur (rest temp) (cons  (first temp) result))))))
               
(print (insertion_sort [2 3 1 4 -1]));

Oops, i ended up writing some sort of selection sort :).