# cheat

p(){
	local m=$1 v=$2
	for((;m--;v^=1)){
		printf $v
	}
}

read x
for((;x-=r*r;a[an++]=r-=1+(x==32))){
	for((r=0;r*r<=x;++r)){ :;}
}

for((;an;)){
	((x=a[--an],x&1)) && p $x 0 || e[en++]=$x
}

for((;ei<en;)){
	p ${e[--en]} 0
	((ei<en)) && p e[ei++] 1
}

: