#!/usr/bin/perl
##
## exp.pl <x> <y>
## Eleva a potenza.
##
#
# &exp (<x>, <y>)
#
sub exp
{
    local ($x) = $_[0];
    local ($y) = $_[1];
    #
    local ($z) = 1;
    local ($i);
    #
    for ($i = 1; $i <= $y; $i++)
      {
        $z = $z * $x;
      }
    #
    return $z;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
$y = $ARGV[1];
#
$z = &exp ($x, $y);
#
print "$x ** $y = $z\n";
#
