stdout X1 Y1

tpu X1 Y0
	mov 0, DOWN
	mov 1, DOWN
	mov 0, DOWN
	mov 1, DOWN
	MOV UP, NIL
end

tpu X0 Y1
	mov 0, RIGHT
	mov 0, RIGHT
	mov 1, RIGHT
	mov 1, RIGHT
	MOV UP, NIL
end

tpu X1 Y1
	MOV UP, ACC
	sub LEFT
	jnz H
	mov 0, DOWN
	jro 2
H:  mov 1, DOWN
end