/* bc.library 4.1 83/04/02 */
auto a, b, c, d, e, g, w, y
auto a, b, c, d, e, f, g, u, s, t
if(x <=0) return(1-10^scale)
scale = scale + scale(x) - length(x) + 1
s = s + (length(x)-scale(x))/2 + 1
s = s + (length(x)-scale(x))/2 + 1
scale = t + length(f) - scale(f) + 1
scale = scale + 1.1*length(t) - 1.1*scale(t)
auto a, b, c, s, t, y, p, n, i
s = t + length(y) - scale(y)
if(x>=0) n = (x/(2*p)+1)/2
if(x<0) n = (x/(2*p)-1)/2
scale = t + length(1.2*t) - scale(1.2*t)
if(c==0){scale=t; return(s/1)}
auto a, b, c, d, e, f, g, s, t
return(.7853981633974483096156608458198757210492923498437764/1)
if(k>0) scale = scale + k