CMNT	 	Reduces a value toward zero by the smallest increment
CMNT	 	Input:  É ¥ input/É
CMNT	 	Output:  É ¥ output/É
PRIM	Stack/Duplicate	É ¥ input/input/É
BRFL	 	branch if zero
	PRIM	Misc/Idle
BRTR
PRIM	Value/Test negative	É ¥ rslt/input/É
BRFL	 	branch if positive
	PRIM	Value/Get resolution	É ¥ res/input/É
	PRIM	Value/Subtract	É ¥ output/É
BRTR
PRIM	Value/Get resolution	É ¥ res/input/É
PRIM	Value/Add	É ¥ output/É