1 REM qsort [] = [] 2 REM qsort xs = qsort [x | x<-tail xs, x=head xs] 10 DEFUN LESS(P,X)=X

=P 12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(LESS~