(def qsort(l <) (iflet (p . xs) l (+ (qsort (keep [< _ p] xs) <) list.p (qsort (rem [< _ p] xs) <))))
-----