main

whilestart:
	swap
	dup
	push -1
	ne
	jfalse whileslutt
	xor
	jmp whilestart
whileslutt:

drop

end main