<>;
$/=undef;
$a=1;
for(<>=~/\w+/g){
	$b+=$a,$_*=2 until$_>>30;
	$h{$_}+=$a;
	$a=-$a;
}
for(sort{$a-$b}keys%h){
	$b+=$h{$_};
	$z=$b if $z<$b;
}
print$z+0;