Implements Merge-sort using Scheme