cpu% til -i
> 1
> 2
> 3
> 4
> 5
> stk
5 4 3 2 1
> dup
> emit
5> stk
5 4 3 2 1
> echo
> 2
> eval
5 4
> stk
3 2 1
> drop drop drop
> stk

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

cpu% til < til-example
5 4 3 2 1
55 4 3 2 1
5 4
3 2 1

1
4 6 5 4 ; 3 2 1
6 5 4
cpu%