MergeSort:= function(A, p, r) local q, A if p