Aliohjelma rekursiivinen-potenssi(A,k):
jos k < 0
virhe
jos k = 0
palauta I
jos k = 1
palauta A
jos k on parillinen
B := rekursiivinen-potenssi(A,k/2)
palauta BB
muuten
B := rekursiivinen-potenssi(A,k-1)
palauta AB