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