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