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
.DDEMO
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