Aliohjelma iteratiivinen-potenssi(A, k):
    jos k < 0
        virhe
    X := I
    toista kunnes k = 0:
        jos k on parillinen
            A := AA
            k := k/2
        muuten
            X := XA
            k := k - 1
    palauta X