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