apple-0.1.0.0: math/log.apple

λm.λx.
{
  amgm ← λx.λy.([{a⟜x->1;g⟜x->2;((a+g)%2,√(a*g))}]^:15 (x,y))->1;
  -- m>2
  𝜋%(2*amgm 1 (0.5^(m-2)%x))-ℝ m*0.6931471805599453
}