@on-reset ( -> )
	#0b #14 #18 tak
	#010e DEO
	BRK

@tak ( z y x -- res )
	LTHk ?{ POP2 JMP2r }
	ROT ROTk ROTk
	( x-1 ) #01 SUB tak STH
	( y-1 ) #01 SUB tak STH
	( z-1 ) #01 SUB tak STHr STHr !tak