f x=x:f(x++map(1-)x)
main=putStr$f[0]!!8>>=show