$!=get;my@a=[\+] map {$^a-$^b},words;say max(0,@a.max)*2-@a[*-1]