. . . .
     begin
     while up-lo > M do begin
          . . . . body of quicksort; . . . .
          end;
     if up > lo then begin
          . . . . simpler-sort . . . .
          end
     end;