#exec({'RUBY_THREAD_VM_STACK_SIZE'=>'100000000'},'/usr/bin/ruby', $0) if !ENV['RUBY_THREAD_VM_STACK_SIZE']

def inpf() a=gets.chomp.split(" ").map(&:to_f)end

def inps() a=gets.chomp.split(" ")end

def copy(a) Marshal.load(Marshal.dump(a)) end

def kaijo(n,r = 10**9+7)(n < 2)? 1 : (2..n).inject{|memo,u|memo=(memo*u)%r} end

def na(n,d=0) Array.new(n,d)end

def na2(n,m,d=0) Array.new(n){Array.new(m,d)}end

def na3(n,m,l,d=0) Array.new(n){Array.new(m){Array.new(l,d)}}end

def inp() a=gets.chomp.split(" ").map(&:to_i)end

def r_up(a, b) (a+b-1)/b end

def sum(a) a.inject(:+) end

def big(a,b) return (a>b)? a:b end

def small(a,b) return (a<b)? a:b end

t = gets.chomp.split("").map &:to_i
k = inp[0]
l = t.size
ans = na(3)
(0...l).each do |i|
  if(i == 0)
    ans[0] += t[i]
  else
    ans[0] += 9
  end
end
(0...(l-1)).each do |i|
  ((i+1)...l).each do |j|
    if(i == 0)
      ans[1] += (t[i]-1) * 9 + t[j]
    else
      ans[1] += 81
    end
  end
end
(0...(l-2)).each do |i|
  ((i+1)...(l-1)).each do |j|
    ((j+1)...l).each do |k|
      if(i != 0)
        ans[2] += 729
      else
        ans[2] += (t[i]-1) * 81
        ans[2] += t[j] * t[k]
      end
    end
  end
end
p ans[k]

