Quicksort implementation in Scheme