(33s) OEIS A4186: Digits in Descending Order

[Gerald H]

Takes a natural number from the stack & returns A4186(N) to stack.
Digits of index decreasing.

eg Input

10477

returns

77410.

I use [i] to represent the built in sign for use of i in indirect addressing to avoid confusion in say

IP(LOG((i)))

or

5*(i).

Suggestions for improvements most welcome.

https://oeis.org/A004186

Preserves stack.

Code:

1.    LBL D
2.    CLVARS
3.    STO K
1.    LBL F
2.    x=0?
3.    GTO G
4.    CLx
5.    RMDR(K:10)+1
6.    STO i
7.    SGN
8.    STO+ [i]
9.    CLx
10.    IDIV(K:10)
11.    STO K
12.    GTO F
1.    LBL G
2.    CLx
3.    10
4.    STO i
5.    CLx
6.    STO T
1.    LBL H
2.    CLx
3.    RCL [i]
4.    x=0?
5.    GTO J
1.    LBL I
2.    CLx
3.    10* T+i-1
4.    STO T
5.    DSE [i]
6.    GTO I
1.    LBL J
2.    DSE i
3.    GTO H
4.    CLx
5.    RCL T
6.    RTN

D: LN = 9        H: LN = 15
F: LN = 58        I: LN = 26
G: LN = 30        J: LN = 18