(defun kleiner (liste mitte)
 (cond ((null liste) nil)
       ((< (car liste) mitte) (cons (car liste)(kleiner (cdr liste) mitte)))
       (t (kleiner (cdr liste) mitte))))

(defun groesser (liste mitte)
 (cond ((null liste) nil)
       ((>= (car liste) mitte) (cons (car liste)(groesser (cdr liste) mitte)))
       (t (groesser (cdr liste) mitte))))


(defun Quicksort (liste)
  (cond ((or (null liste)(null (cdr liste))) liste) ;fertig
        (t (append (Quicksort (kleiner (cdr liste)(car liste)))
                   (cons (car liste)
                   (Quicksort (groesser (cdr liste)(car liste))))))))