/* arccosh */
new; cls;
print arccosh(2);



proc arccosh(x);
   retp(ln(x+sqrt(x-1).*sqrt(x+1)));
endp;