do
input""a,b
for u=8e3to 1step-2f=pi*2+f*(u-4+3/u)/u*(1-(b/a)^2)next
?int(f*a+.5+0^a)loop