byte a(499) do1 j=8e3,9,-10;k=j/5-1;n=k;do1 i=1,499;k=mod(k,j)*10+n*a(i);1 a(i)=k/j print'(i0".6"999i0)',a;end