require 'set'; require 'prime'
INF=Float::INFINITY; MOD=10**9+7
ar = gets.chomp.split(//).map(&:to_i)
k = gets.chomp.to_i
size = ar.size

def solve1(ar)
  ans = 0
  ar.each_with_index do |e, i|
    if e > 0
      ans += e
      ans += (ar.size - i - 1) * 9
      break
    end
  end
  ans
end

ans = 0
if k == 1
  ans = ar.shift
  ans += (size-1) * 9
elsif k == 2
  if size <= 1
    puts 0
    exit
  end
  ans += (size-1) * (size-2) / 2 * 9 * 9
  ans += (ar.shift - 1) * (size - 1) * 9
  ans += solve1(ar)
#  ar.each_with_index do |num, i|
#    ans += (num - 1) * (size - i - 1) * 9
#  end
  ans = -1
else
  if size <= 2
    puts 0
    exit
  end

  ans += (size-1) * (size-2) * (size-3) / 6 * 9 * 9 * 9
  ans += (ar.shift - 1) * (size-1) * (size-2) / 2 * 9 * 9
  size2 = ar.size
  ans += (size2-1) * (size2-2) / 2 * 9 * 9
  ans += (ar.shift - 1) * (size2 - 1) * 9
  ans += solve1(ar)
end

puts ans
