Cleaned.clj

(defn my-merge
  ([lst1 lst2]
   (my-merge lst1 lst2 nil))
  
  ([lst1 lst2 lst3]
   (cond
     (and (empty? lst1) (empty? lst2))
     (reverse lst3)
     
     (empty? lst1)
     (recur nil (rest lst2) (cons (first lst2) lst3))
     
     (empty? lst2) 
     (recur (rest lst1) nil (cons (first lst1) lst3))
     
     (<= (first lst1) (first lst2))
     (recur (rest lst1) lst2 (cons (first lst1) lst3))
     
     :else
     (recur lst1 (rest lst2) (cons (first lst2) lst3)))))