l,n,*a=$<.read.split.map &:to_i
p a.sort.index{|i|l<$.+=i}||n