Select Code to Download

my $i = 78187493530;

...
    my ($C, $N) = unpack "CN", $pi;
    return $C * 2**32 + $N;
}