Select Code to Download

#! /usr/bin/perl -w

...
    print "\t in base 64 = ", $b64->to_base($num), "\n\n";
}

% ./b36 1 10 1000 1000000 100000000 1000000000
1
...
1000000000
         in base 36 = gjdgxs
         in base 64 = XCIE0

my @prev = (0,0,0);
my @n    = (0,0,0);
...
    $prev[$_] = length($n[$_]) for 0..2;
    redo;
}

1 1 1
10 a a
...
16777216 9zlds 10000
60466176 100000 3CGg0
100000000 1njchs 5Zu40

#! /usr/local/bin/perl -w

...
    }
    redo;
}

0(1) 0(1) 0(1)
10(2) a(1) a(1)
...
1000000000000000(16) 9ugxnorjls(10) 3znWANE00(9)
3656158440062976(16) 10000000000(11) c_k6V4000(9)
10000000000000000(17) 2qgpckvng1s(11) zxL9LMg00(9)