#!/usr/bin/perl -l

use strict;
use warnings;

use bigint;

print 2**100;

my ($x, $y) = (2,100);

print $x**$y;

print &pot(2,100);

for my $i (2..2) {
    for my $j (100..100) {
        print $i**$j;
    }
}

##########################

sub pot {
    return $_[0]**$_[1];
}