; berechnet a^n fr n element N

print a:
read 0 ; a
print n:
read 1 ; n
data 1
stor 2 ; 1
data 1
stor 3 ; erg

lade 1
sub- 2 ; n--
stor 1
:continue
lade 3
mul* 0
stor 3

lade 1
sub- 2 ; n--
stor 1
go.p :continue

writ 3 ; erg
end.