INFTY = Float::INFINITY
$count = 0

def merge(a, left, mid, right)
    n1 = mid - left;
    n2 = right - mid;
    # l[0...n1], r[0...n2] ?????????
    l = (0...n1).to_a
    r = (0...n2).to_a
    (0...n1).each do |i|
        l[i] = a[left + i]
    end
    (0...n2).each do |i|
        r[i] = a[mid + i]
    end
    l[n1] = INFTY
    r[n2] = INFTY
    i = 0
    j = 0
    # for k = left to right-1
    for k in (left...right)
        $count += 1
        if l[i] <= r[j]
            a[k] = l[i]
            i = i + 1
        else
            a[k] = r[j]
            j = j + 1
        end
    end
end

def mergeSort(a, left, right)
    if left+1 < right
        mid = (left + right)/2;
        mergeSort(a, left, mid)
        mergeSort(a, mid, right)
        merge(a, left, mid, right)
    end
    a
end

n = gets.to_i
a = gets.split(/ /).map(&:to_i)
puts mergeSort(a, 0, n).join(" "), $count
__END__
?????? 1
10
8 5 9 2 6 3 7 1 10 4
merge(a, left, mid, right)
n1 = mid - left;
n2 = right - mid;
l[0...n1], r[0...n2] ?????????
for i = 0 to n1-1
    l[i] = a[left + i]
    for i = 0 to n2-1
        r[i] = a[mid + i]
        l[n1] = INFTY
        r[n2] = INFTY
        i = 0
        j = 0
        for k = left to right-1
            if l[i] <= r[j]
                a[k] = l[i]
                i = i + 1
            else
                a[k] = r[j]
                j = j + 1

                mergeSort(a, left, right)
                if left+1 < right
                    mid = (left + right)/2;
                    mergeSort(a, left, mid)
                    mergeSort(a, mid, right)
                    merge(a, left, mid, right)