$!=!get;say max(0,max(map {$!+=$^a-$^b},words))*2-$!