CMNT	 	starts the timer
CMNT	 	Input:  É/target_time ¥ key/tree/É
CMNT	 	Output:  É ¥ tree/É
PRIM	S_tree/Get exact	Étarget_time ¥ list/key/tree/É
PRIM	List/Behead	Étarget_time ¥ state/PAT/key/tree/É
PRIM	Stack/Xdrop	Étarget_time ¥ state/key/tree/É
BRFL	 	branch if no timer event pending
	PRIM	Stack/Dup down	Étarget_time ¥ key/tree/key/É
	PRIM	Stack/Dup from aux	É/target_time ¥ target_time/key/tree/key/É
	PRIM	List/Item to list	É/target_time ¥ list/key/tree/key/É
	LITO	1	É/target_time ¥ state/list/key/tree/key/É
	PRIM	List/Splice	É/target_time ¥ list'/key/tree/key/É
	PRIM	S_tree/Put	É/target_time ¥ tree/key/É
	CALL	354310	É ¥ tree/É
BRTR
PRIM	Stack/Push from aux	É ¥ target_time/key/tree/É
PRIM	List/Item to list	É ¥ list/key/tree/É
LITO	1	É ¥ state/list/key/tree/É
PRIM	List/Splice	É ¥ list'/key/tree/É
PRIM	S_tree/Put	É ¥ tree/É