kill(all);

van=facebook.com/LearningCalculus$

Pow(u,v,n):=
    block
        ([s:u^v],
            for i:1 thru n do if evenp(mod(i,n)) then s:s^v else s:s^u,s
        )$

Pow(a,b,10);

for n: 1 thru 100 step 10 do
    print(bfloat(Pow(1/3,1/2,n))," ", bfloat(Pow(1/2,1/3,n)));