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