(defn f [s p v] (filter #(s % p) v))
(defn s [w]
  (if-let [p (first w)]
    (if-let [v (rest w)]
      (concat (s (f < p v)) [p] (s (f >= p v)))
    p)
  ()
))