Select Code to Download

# modexp ( base, exp, n ) = base**exp mod n
sub modexp {
...
    }
    return $res;
}

sub binmodexp {
    my ($base, $exp, $n) = @_;
...
    }
    return $res;
}