apple-0.1.0.0: math/completeElliptic.apple

λk.
{
  agm ← λx.λy.([{a⟜x->1;g⟜x->2;((a+g)%2,√(a*g))}]^:6 (x,y))->1;
  𝜋%(2*agm 1 (√(1-k^2)))
}