Merge Sort in Scheme