{ include ..\Utilitys.tlhy }
"..\Utilitys.tlhy" load
:push! { l i -- l&i }
0 put
;
:empty? { l -- flag }
len not { len 0 equal }
:pop! { l -- l-1 }
empty? (
["Empty"]
[pop swap]
) if
( ) { empty queue }
1 push! 2 push! 3 push!
pop! ? pop! ? pop! ? pop! ?
"End " input