Conversion: Algebraic - Polish - Reverse Polish - LISP ?

[Thomas Klemm]

Or then use DOLIST:

Code:

 « OBJ→
  IF OVER
  THEN → f
    « →LIST 1
      «
        IF DUP TYPE 9 SAME
        THEN →PN
        END
      » DOLIST f SWAP +
    »
  ELSE 1 →LIST SWAP DROP
  END
»