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