Closure in RPL

[John Keith]

Maybe I'm missing something, but wouldn't something like this be simpler for SIEVE?

Code:


\<< \-> p
  \<< 1
    \<< DUP p MOD OVER p SAME OR NOT DROPN
    \>> DOLIST
  \>>
\>>