1
2
3
4
5
stk
dup
emit
stk
echo
2
eval
stk
drop drop drop
stk
 : -  swp sub 2 eval<
2
1
-
stk
drop
1 2 3 ; 4 5 6 ; ~
stk
: eval; ; ~ 1 - eval
1 2 3 ; 4 5 6 echo eval;