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 2, ACC
	sub UP
	sub LEFT
	jez H
	mov 0, DOWN
	jro 2
H:  mov 1, DOWN
end