dc/.dc

   1 5k
   2 10o
   3
   4 # natural logarithm: 1000lLx 10lLx /p
   5 [1-d2+/d2*Skd*Sy0Ss10K^Sp[d1r/lk*ls+lsrdss-lp*d*1[s_q]s_>_lkly*sk2+lfx]Sf1lfxLsLkLyLpLfs_s_s_s_]sL
   6
   7 # sum of everything in stack: lSxp
   8 [0d[+2z>a]salax]sS