Added quicksort in Prolog