#!/usr/bin/perl -w
use strict;

use bignum;
use Digest::SHA qw(sha256_hex);

my $i = 1;
my $digest = hex(sha256_hex($i));

# just for debugging
print "$digest\n";
$digest /= 64;
print "$digest\n";


48635463943209834798109814161294753926839975257569795305637098542720658922315
759929124112653668720465846270230530106900000000000000000000000000000000000

##</code><code>##

48635463943209834798109814161294753926839975257569795305637098542720658922315
759929124112653668720465846270230530106874613399528051650579664730010295661