sub n($){substr$_,"@_",1}
$_=<>;$l=y///c-2;
for$m(1e9,1e9+7){
	for$i(($r=0)..$l/2){
		$r=($r.($i>0|$l&1)*9+n$i)%$m;
		$f=n$i<=>n$l-$i||$f;
	}
	print+($r-=$f>0)%$m,$/;
}