say ($/=words)[2..*].sum-$1*+^-$0