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

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

    v.resize(n);
    for (auto &x : v) {
        be >> x;
    }
}

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

    int dijkoteles_db = 0;
    for (int i = 0; i < n; i++) {
        if (v[i] == 1) {
            dijkoteles_db++;
        }
    }

    unsigned long long utvonal_db = 0;
    const auto max_db = std::min(dijkoteles_db, k);
    for (int db = 2; db <= max_db; db++) {
        utvonal_db += dijkoteles_db - db + 1;
    }

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

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

    feldolgoz(v, k);

    return 0;
}