1 2 +
2 PLUS
: PLUS + ;
.S DUP * + - = < > OVER SWAP ROT DROP NIP TUCK 2DUP MOD : ; ! @ , > R R> R@ R0 IF ELSE THEN DO LOOP I J .D
DEMO
def INTERPRET(): WORD() FIND() if abs(POP()) EXECUTE() else: NUMBER()
while input_stream: if COMPILE: COMPILE() else: INTERPRET()
1 2 3 DUP : SQUARED DUP * ; 4 SQUARED
By Nasreen Hunaina