5k 10o # [ 1-d2+/ # d2*Sk # Initialize multiplier # d*Sy # Initialize multiplier factor # 0Ss # Initialize accumulator # 10K^Sp # Initialize 10^k power # [ d1r/lk*ls+lsrdss # Update accumulator # -lp*d*1 [s_q]s_>_ # Check precision # lkly*sk 2+ # Update multiplier and counter # lfx # ]Sf # 1lfxLs # LkLyLpLfs_s_s_s_] sL # natural logarithm: 1000lLx 10lLx /p [1-d2+/d2*Skd*Sy0Ss10K^Sp[d1r/lk*ls+lsrdss-lp*d*1[s_q]s_>_lkly*sk2+lfx]Sf1lfxLsLkLyLpLfs_s_s_s_]sL # sum of everything in stack: lSxp [0d[+2z>a]salax]sS