main=putStr$f"0"!!8
f x=x:f(x++map succ x)