procedure quicksort (A,M,N); value M,N;
            array A; integer M,N;
begin    integer I,J;
         if M < N then begin partition(A,M,N,I,J);
                             quicksort(A,M,J);
                             quicksort(A,I,N);
                       end
end      quicksort