do n=1 to 87;x=1;do 9;x=x/2+n/x;end;say(n+x+.5)%1;end