"CODE" 35114;
 "REAL" "PROCEDURE" ARCSINH(X); "VALUE" X; "REAL" X;
 "IF" ABS(X) > "10 "THEN" ARCSINH:= SIGN(X)*(0.69314 71805 5995+
     LN(ABS(X))) "ELSE"
 "BEGIN" "REAL" Y;
     Y:= X*X; ARCSINH:= SIGN(X)*LOG ONE PLUS X(ABS(X)+Y/(1+SQRT(1+Y)))
 "END" ARCSINH;
        "EOP"