dim a(99):m=10:for i=0to 50k=m:m=-m
for j=0to 99k=a(j)*i+int(k/10):a(j)=mod(k,10):if k n=j
next:for j=-n to 0?a(-j),"";next:?next