integer::a(99)=0,b(99)=0;a(99)=1;do i=1,51
do j=1,98;if(a(j)>0)exit;enddo;print'(99i0)',a(j:)
k=0;do j=99,1,-1;k=(a(j)+b(j))*i+k/10
a(j)=b(j);b(j)=mod(k,10);enddo;enddo;end