[HP41] Lambert function RPN; question

[Thomas Klemm]

Nice. This removes another 4 bytes:

Code:

00 { 37-Byte Prgm }
01▸LBL "W"
02 STO 00
03 LN
04 STO 01
05▸LBL 00
06 RCL 01
07 RCL 01
08 RCL 00
09 ÷
10 LN
11 RCL 01
12 +
13 ×
14 LASTX
15 2
16 ÷
17 RCL 01
18 1
19 +
20 ÷
21 LASTX
22 +
23 ÷
24 STO- 01
25 ABS
26 RND
27 X≠0?
28 GTO 00
29 RCL 01
30 END

In addition, it is significantly faster.

Example

1E99 XEQ "W"

222.550768956