$_=<>;chop;$l=length;
for$a(0..$l-1){
	for$b($a..$l-1){
		$c=0;
		for$i($a..$b){
			$c+=substr($_,$i,1)eq substr($_,$a+$b-$i,1);
		}
		if($d<$c){
			$d=$c;
		}
	}
}
print$d+0;