/*
 * validator
 */

#include <bits/stdc++.h>

std::pair<long long, char> read() {
    long long x = 0;
    char c;
    while (true) {
        c = std::getchar();
        if (!std::isdigit(c)) {
            return std::pair(x, c);
        }
        x = 10 * x + c - '0';
    }
}

int main() {
    char c;
    long long N; int n;
    std::tie(N, c) = read();
    std::tie(n, c) = read();
    assert(std::getchar()==EOF);

    std::vector<int> pinv(n), ckd(n);
    std::vector<long long> fact(n, 1);
    for (int i=1; i<n; i++) {
        fact.at(i) = fact.at(i-1) * i;
    }

    for (int i=0; i<n; i++) {
        long long f = fact.at(n-1-i);
        int q = N / f;
        for (int j=0, k=0; j<n; j++) {
            if (!ckd.at(j) && k++==q) {
                pinv.at(j) = i;
                ckd.at(j) = true;
                break;
            }
        }
        N -= f * q;
    }

    ckd.assign(n, false);
    N = 0;
    for (int i=0; i<n; i++) {
        ckd.at(pinv.at(i)) = true;
        int q = 0;
        for (int j=0; j<pinv.at(i); j++) if (!ckd.at(j)) q++;
        N += fact.at(n-1-i) * q;
    }
    std::cout << N << '\n';
}