qsort in clojure