#!/usr/bin/perl
my  $n = 2;
my  $d = 10_000_000_000;

for (my  $x = 1; $x <= 7830456; $x = $x+1) {
    $n = ( 2 * $n ) % $d ;
}

$n *= 28433;
$n += 1;
$n %= $d;

print $n;