
(begin)
expt(10,20);
for each x in '(1 2 3 4 5) do print expt(x,x);
end;
