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