(defn qsort [l]
  (if (empty? l) '()
    (let [f (first l)
          smaller (filter #(<= % f) (rest l))
          bigger (filter #(> % f) (rest l))]
      (concat (qsort smaller) [f] (qsort bigger)))))