package Yukicoder

/**
 * Created by hichikawa on 2015/11/12.
 */
fun main(args: Array<String>) {
    fun readLineLongArray(): List<Long> {
        val str = readLine() as String
        val arrStr = str.split(" ")
        val ret = arrStr.map { it.toLong() }
        return ret
    }

    fun readLineLong(): Long {
        val str = readLine() as String
        return str.toLong()
    }

    fun readLineInt(): Int {
        val str = readLine() as String
        return str.toInt()
    }

    fun readLineIntArray() : List<Int> {
        val str = readLine() as String
        val arrStr = str.split(" ")
        val ret = arrStr.map { it.toInt() }
        return ret
    }

    fun readLineDoubleArray(): List<Double> {
        val str = readLine() as String
        val arrStr = str.split(" ")
        val ret = arrStr.map { it.toDouble() }
        return ret
    }
    val sumMoney = readLineLong()
    val num = readLineLong()
    val modi = (sumMoney % (num * 1000)) / 1000
    var numC : Long = 1
    for (i : Long in num downTo (num-modi+1)) {
        numC *= i
    }
    var modiC : Long = 1
    for (i : Long in 2..modi) {
        modiC *= i
    }
    println(numC / modiC)
}