$/=get.words;say +grep $1-($+=*)>=0,sort +<<words