def comb(n,r)
  r.times.inject(1){|s,i| s * (n - i) / (i + 1) }
end
N = gets.chomp.chars.map(&:to_i)
K = gets.to_i

NZ = Array.new(N.size + 1, 0)
N.each_with_index do |d,i|
  NZ[i + 1] = NZ[i] + (d > 0 ? 1 : 0)
end

ans = N.each.with_index(1).inject(0) do |s,(d, i)|
  next s if d.zero?
  t = N.size - i
  r = K - NZ[i]
  if r >= 0
    use_non_zero = (d - 1) * comb(t, r) * (9 ** r)
    use_zero = comb(t, r + 1) * (9 ** (r + 1))
    s + use_non_zero + use_zero
  else
    break s + 1
  end
end

puts ans
