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