use strict;
use warnings;
use integer;
use feature 'say';

my $base = 3;
my $power = 33;
my $result = $base ** $power;
printf "%d\n", $result;
$power = 38;
$result = $base ** $power;
printf "%d\n", $result

##</code><code>##

program fort
      integer*8 base, power
      integer*8 result
      base = 3
      power = 33 
      result = base ** power +1;
      print *, result
      power = 38 
      result = base ** power +1;
      print *, result
end program

##</code><code>##

C:\Users\Bill\forums\monks>perl power3.pl
5559060566555523
1350851717672992000

C:\Users\Bill\forums\monks>gfortran -o power3 power3.f90

C:\Users\Bill\forums\monks>power3.exe
     5559060566555524
  1350851717672992090