$/=[-] get.words;$!=0;say map({-$!+($!=$_)},sort +<<words)[1..*].sort[^$/].sum