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

use Math::GMPz;
# use Math::GMP;
use Digest::SHA qw(sha256_hex);

for (my $i = 1; $i <= 10; $i++) {
  my $digest = Math::GMPz->new(sha256_hex($i), 16);
# my $digest = Math::GMP-> new(sha256_hex($i), 16);
  print "$i $digest\n";
  $digest /= 64;
  print "$i $digest\n";
}