eval'L,_,*W='+$<.read.split*?,
p W.sort.count{|e|-1<L-=e}