#define ENABLE_DEBUG 1
// Kana's kitchen {{{
#include<bits/stdc++.h>
#define ALL(v) std::begin(v), std::end(v)
#define REP(i, k) for (decltype(k) i = 0; i < k; i++)
#define LOOP(k) REP (ngtkana_is_a_genius, k)

using i32 = std::int_least32_t;
using i64 = std::int_least64_t;
using u32 = std::uint_least32_t;
using u64 = std::uint_least64_t;
using usize = std::size_t;

template <class T, class U> using pair = std::pair<U, T>;
template <class T> using diag_pair = std::pair<T, T>;
template <class... Args> using tuple = std::tuple<Args...>;
template <class T> using vec = std::vector<T>;
template <class T> using numr = std::numeric_limits<T>;

#ifdef NGTKANA
#include<debug.hpp>
#else
#define DEBUG(...)(void)0
#endif
/*}}}*/

int main() {
    std::cin.tie(nullptr);
    std::ios::sync_with_stdio(false);
    std::cout << std::setprecision(15) << std::fixed;

    u64 N, n; std::cin >> N >> n;

    vec<u64> pinv(n), ckd(n), fact(n, 1);
    for (u64 i=1; i<n; i++) {
        fact.at(i) = fact.at(i-1) * i;
    }

    for (u64 i=0; i<n; i++) {
        u64 f = fact.at(n-1-i);
        u64 q = N / f;
        for (u64 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 (u64 i=0; i<n; i++) {
        ckd.at(pinv.at(i)) = true;
        u64 q = 0;
        for (u64 j=0; j<pinv.at(i); j++) if (!ckd.at(j)) q++;
        N += fact.at(n-1-i) * q;
    }
    std::cout << N << '\n';
}