hp 28s - creating nested lists

[Thomas Klemm]

Here's another solution that works with the HP-48:

Code:

\<<
  REVLIST
  WHILE DUP SIZE
  REPEAT DUP TAIL
    SWAP HEAD
    ROT 1 \->LIST
    { } ROT
    1 SWAP START
      OVER +
    NEXT
    SWAP DROP SWAP
  END DROP
\>>

But maybe you can still use the idea for the HP-28.
Since it's not possible to append a list as an element to another list I had to wrap it into a list: 1 \->LIST

Cheers
Thomas