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

# changed only this line
use bignum (p => 1);
use Digest::SHA qw(sha256_hex);

for (my $i = 1; $i <= 9; $i++)
    {
    my $digest = hex(sha256_hex($i));

print "$i $digest\n";
$digest /= 64;
print "$i $digest\n";
    }


1 48635463943209834798109814161294753926839975257569795305637098542720658922315
1 810591065720163913301830236021579232113999587626163255093951642378677648705
2 96094161643976066833367867971426158458230048495430276217795328666133331159861
2 1601569360732934447222797799523769307637167474923837936963255477768888852664
3 35293215426786447154857697798367884701614677727176325092965345248689205321678
3 588220257113107452580961629972798078360244628786272084882755754144820088695
4 33984360982413536682390860969296307922929415152052354251133793603654468157322
4 566406016373558944706514349488271798715490252534205904185563226727574469289
5 108182406554699997314868250957730053259073589402365819770572592736584172823453
5 1803040109244999955247804182628834220984559823372763662842876545609736213724
6 104920238006865337205013407090248200170018306865343388364051008767965015414403
6 1748670633447755620083556784837470002833638447755723139400850146132750256907
7 54734117258892461880478870895348100103198302433611928089023761078319507514449
7 912235287648207698007981181589135001719971707226865468150396017971991791907
8 20075373234943686845167158285967784892467090849631486320124245130906619831459
8 334589553915728114086119304766129748207784847493858105335404085515110330524
9 11463511883541201508393500803711559652562721115888819482889049505863143503287
9 191058531392353358473225013395192660876045351931480324714817491764385725055