while(a:?read(?-,?-,0))#0 do dispterms(round(float(4*a*elliptic_ec(1-(?read()/a)^2))));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page