#!/usr/bin/perl -w

use lib '../lib';

use strict;

use Math::Big qw/hailstone/;
use Math::BigInt;

my $n = shift || 100;

$n = Math::BigInt->new($n);
my $x = Math::BigInt->new(1);

print "$n: ",scalar hailstone($n),"\n";

print "Hailstone numbers up to $n:\n";
while ($x < $n)
  {
  print "$x: ",scalar hailstone($x),"\n";
  $x++;
  }