Plan 9 from Bell Labs’s /usr/web/sources/contrib/maht/rc/til-example
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;