#include <iostream>
#include <vector>
#include <algorithm>

void beolvas(std::istream &be, std::vector<int> &ar, int &k) {
    int n;
    be >> n >> k;

    ar.resize(n);
    for (auto &a : ar) {
        be >> a;
    }
}

void feldolgoz(std::vector<int> &ar, int k) {
    const auto n = static_cast<int>(ar.size());

    sort(ar.begin(), ar.end());

    int bevetel = 0;
    for (int i = 0; i < n; i++) {
        const auto x = ar[i];

        for (int j = std::max(i + 1, n - k); j < n; j++) {
            ar[j] += x;
        }

        bevetel += x;
    }

    std::cout << bevetel << '\n';
}

int main() {
    std::vector<int> ar;
    int k;
    beolvas(std::cin, ar, k);

    feldolgoz(ar, k);

    return 0;
}