(define (quicksort xs)
  (cond [(null? xs) xs]
        [else (let* ((after-part (partition (car xs) xs))
                     (smallers (car after-part))
                     (greaters (cdr after-part)))
                (append (quicksort smallers) (quicksort greaters)))]))