#tape 101010

#Eingabe big-endian, ausgabe big-endian

start
	* {L L P0 R R} gor

gor R
	. . L sub

sub
	1 0 L gol
	0 1 L sub
	. . L stop

gol L
	. . L add

add
	0 1 R back
	1 2 R back
	2 3 R back
	3 4 R back
	4 5 R back
	5 6 R back
	6 7 R back
	7 8 R back
	8 9 R back
	9 0 L add
	. 1 R back

back R
	. . R gor