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