byte a(99);m=10;do1 i=0,50;k=m;m=-m
do2 j=99,1,-1;k=a(j)*i+k/10;a(j)=mod(k,10)
2 if(k>0)n=j;1 print'(99i0)',a(n:);end