N = gets.to_i
Ndigits = N.to_s.length
K = gets.to_i
C = Array.new(101) {Array.new(4, 1)}
for i in 1..100
    for j in 1..3
        C[i][j] = (1..j).inject(1){|sum, k| sum *= (i - k + 1)} / (1..j).inject(1, :*)
    end
end

ans = 0
for i in K..Ndigits
    if i == Ndigits
        if K == 1
            ans += N.to_s[0].to_i
        elsif K == 2
            ans += (N.to_s[0].to_i - 1) * (9 ** (K - 1)) * C[i - 1][K - 1]
            flag = false
            for j in 1..Ndigits-1
                x = N.to_s[j].to_i
                if flag
                    ans += 9
                elsif x > 0
                    flag = true
                    ans += x
                end
            end
        elsif K == 3
            ans += (N.to_s[0].to_i - 1) * (9 ** (K - 1)) * C[i - 1][K - 1]
            flag = false
            for j in 1..Ndigits-2
                x = N.to_s[j].to_i
                if flag
                    ans += 9 * 9 * ((Ndigits-1) - (i + 1))
                elsif x > 0
                    ans += (x - 1) * 9 * C[i - j - 1][1]
                    flag2 = false
                    for k in j+1..Ndigits-1
                        y = N.to_s[k].to_i
                        if flag2
                            ans += 9
                        elsif y > 0
                            flag2 = true
                            ans += y
                        end
                    end
                    flag = true
                end

            end
        end
    else
        ans += 9 ** K * C[i - 1][K - 1]
    end
end

p ans