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