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