eval"T,N,*B="+`dd`.split*?,
B[N..-1].map{|v|9.times{|j|$*<<v/2**j}}
d={}
f=->t,i{d[[t,i]]||=i<N*9?[f[t,i+1],(0>t-=B[i/9])?0:$*[i]+f[t,i+1]].max: 0}
p f[T,0]