a=1
for i=1to 9?mid$("123456789ABCDEFGHIJKLMNOPQRSTUVWXY",1,a)
a=a+b
b=a-b
next