gistfile1.txt

sub ethiop(Complex:D \z, Int:D \n where n > 0) {
    my ($p, $z, $n) = 1, z, n;
    until $n == 0 {
	$p *= $z unless $n %% 2;
	$n div= 2;
	$z *= $z;
    }
    return $p;
}

say ethiop(1i, 2);