bar(n:SortedList)

quicksort(x:List)->List
quicksort [] = []
quicksort (cons x xs) = quicksort(filter ((< x) xs)) ++ filter (== x) xs ++ (filter ((> x) xs))

foo(a:List)
	bar(quicksort(a))