(HP48) Beginner questions about RPL

[Gil]

To see the list of all intermediate numbers in the algorithm, the given code could be modified as follows:

\<< DUP "Start number" \->TAG 1 \->LIST 0 ROT
WHILE DUP 1 >
REPEAT
IF DUP 2 MOD
THEN 3 * 1 +
ELSE 2 /
END SWAP 1 + SWAP DUP 4 ROLL SWAP + UNROT
END DROP "Steps" \->TAG
\>>

Or
<< DUP "Start number" ->TAG 1 ->LIST 0 ROT
WHILE DUP 1 >
REPEAT
IF DUP 2 MOD
THEN 3 * 1 +
ELSE 2 /
END SWAP 1 + SWAP DUP 4 ROLL SWAP + UNROT
END DROP "Steps" ->TAG
>>