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

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

# a small expansion on the previous code block
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 759929124112653668720465846270230530106900000000000000000000000000000000000
2 96094161643976066833367867971426158458230048495430276217795328666133331159861
2 1501471275687126044271372937053533725910000000000000000000000000000000000000
3 35293215426786447154857697798367884701614677727176325092965345248689205321678
3 551456491043538236794651528099498198462700000000000000000000000000000000000
4 33984360982413536682390860969296307922929415152052354251133793603654468157322
4 531005640350211510662357202645254811295800000000000000000000000000000000000
5 108182406554699997314868250957730053259073589402365819770572592736584172823453
5 1690350102417187458044816421214532082173000000000000000000000000000000000000
6 104920238006865337205013407090248200170018306865343388364051008767965015414403
6 1639378718857270893828334485785128127657000000000000000000000000000000000000
7 54734117258892461880478870895348100103198302433611928089023761078319507514449
7 855220582170194716882482357739814064112500000000000000000000000000000000000
8 20075373234943686845167158285967784892467090849631486320124245130906619831459
8 313677706795995106955736848218246638944800000000000000000000000000000000000
9 11463511883541201508393500803711559652562721115888819482889049505863143503287
9 179117373180331273568648450057993119571300000000000000000000000000000000000

##</code><code>##

#!/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

##</code><code>##

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

use bignum (p => 1);
use Digest::SHA qw(sha256_hex);

# here, I change 9 to 10
for (my $i = 1; $i <= 10; $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
10 33592815351635838866227505544683417564162321228075154218315436012476449103317
10 559880255860597314437125092411390292736038687134585903638590600207940818389
10 33592815351635838866227505544683417564162321228075154218315436012476449103317
10 559880255860597314437125092411390292736038687134585903638590600207940818389
10 33592815351635838866227505544683417564162321228075154218315436012476449103317
10 559880255860597314437125092411390292736038687134585903638590600207940818389

[repeats indefinitely]