lines>>.&{$/=.words;-+^$0+>1*$1}.sum.say