n, k = $stdin.read.split.map(&:to_i)
d = (1..100).find { |i| 10 ** i > n }
digits = n.to_s.each_char.map(&:to_i)

def f(x, y)
  y == 0 ? 1 : Array.new(x).combination(y).size * 9**y
end

kk = k
dd = d
sum = 0
while (dd >= 0) && (kk >= 0)
  i = digits.shift || 0
  dd -= 1
  
  if digits.grep_v(0).empty?
    sum += 1
    break
  end

  if i > 0
    sum += f(dd, kk)
    kk -= 1
    sum += (i - 1) * f(dd, kk)
  end
end

puts sum.to_i
