$n=<>;
@s=(<>,<>);
($x,$y)=map{y/2//}@s;
($z,$w)=map{y/1//}@s;
print $n*($x+$y)-$x*$y+($x?$y?0:$z:$y?$w:($z>$w?$z:$w))