#!/usr/bin/perl

sub potencia
  {
    my($a,$n) = @_;

    if( $n == 0 )
      {
        1;
      }
    elsif( $n%2 == 1 )
      {
        $a*potencia($a,$n-1);
      }
    else
      {
        potencia($a*$a,$n/2);
      }
  }

print potencia(2,13), "\n";