N = gets.chomp.to_i
K = gets.chomp.to_i

$ans = 0

1.upto(1000) do |i|
  if i > N
    p $ans
    exit
  end
  if i.to_s.split('').count{|e| e != '0'} == K
    $ans += 1
  end
end

def a(t)
  if K == 1
    $ans += 9
  elsif K == 2
    $ans += (t-1) * (9**2)
  else
    $ans += ((t-1) * (t-2) * (9**3)) / 2
  end
end

4.upto(100) do |i|
  if 10**i <= N
    a(i)
  else
    1.upto(i.to_s.split('').first.to_i) do |u|
      if u.to_i < N.to_s.split('').first.to_i
        a(i-1)
      elsif u.to_i == N.to_s.split('').first.to_i
        0.upto(i.to_s.split('')[1].to_i) do |m|
          if m.to_i < N.to_s.split('')[1].to_i
            a(i-2)
          end
        end
      end
    end
  end
end
p $ans
