Clojure code to solve largest increasing sequence 4Clojure problem

gistfile1.clj

(fn 
	([seq] (find-inc-seq [] [] seq))
	([cur-seq cur-longest-seq a-seq]
		(cond
			(empty? a-seq) 
				(let [ret (if (> (count cur-seq) (count cur-longest-seq)) cur-seq cur-longest-seq)]
					(if (> (count ret) 1) ret []))
				
			(empty? cur-seq) (find-inc-seq (conj [] (first a-seq)) cur-longest-seq (rest a-seq))
			:default (if (> (first a-seq) (last cur-seq))
				(find-inc-seq 
					(conj cur-seq (first a-seq)) 
					cur-longest-seq 
					(rest a-seq))
				(find-inc-seq 
					[] 
					(if (> (count cur-seq) (count cur-longest-seq)) cur-seq cur-longest-seq)
					a-seq)))))