my $max=0;
for(map values %$_,values %result){
	my $n=split;
	$max=$n if $n>$max;
}
print $max;