a=1;x=.30103;do 20;x=x+x;a=a x%1+1;end;say a