integer::a(9842)=[(i,i=1,3**9,2)];do1 i=2,1119;print'(i0h $)',a(i-1);a(a(i)::a(i))=0;1 a=pack(a,a>0);end