l,n,*w=`dd`.split.map &:to_i;s=0;w.sort!;p n.times{|i|s+=w[i];s>l&&(break i)}