$_=<>;
$n=length($_);
$m=$n/2;
$s=substr($_,0,$m);
$a=$s-(substr($s.reverse, $m*2, $m)>substr($_,$n-($n + 1)/2,$m)?2:1)+10**($n-1-int($m));
printf"%d\n%d\n",int($a%1e9),int($a%(1e9+7));