Scheme quicksort finished