%%HP: T(3)A(D)F(.);
@ LNX, Variable Precision decimal expansion of e.
@ by RJ Schwartz
\<< 
       200 \-> X Y
  \<<
       DO Y X 2 * LASTARG SWAP DROP \pi \->NUM * LOG - Y LOG - LASTARG
          SWAP DROP 1 EXP LOG - 2 * / DUP 'Y' STO - ABS UNTIL 1 \<= END
          Y IP 1 + X
  \>>
 
       10 / DUP 1 \->LIST 0 CON DUP 0 1E10 \-> P N E F R Z
 
  \<<
       'F' 1 Z PUT 2 P FOR K 0 'R' STO 1 N FOR I 'F' I DUP2 DUP2 GET R +
       PUT GET DUP K / IP DUP 'F' I ROT PUT K * - Z * IP 'R' STO NEXT
       1 N FOR I 'E' I DUP2 DUP2 GET 'F' I GET + PUT GET 
    
       IF Z \>= THEN 'E' I DUP2 DUP2 GET Z - PUT 1 - DUP2 GET 1 + PUT END
 
       NEXT NEXT E
  \>>
 
       440 .5 BEEP
\>>