(defn qsort
  [[x & r]]
  (let [xs #(for [y r :when (% y x)] y)]
    (when x
      (concat (qsort (xs <=)) [x] (qsort (xs >))))))