var i,n:byte;begin repeat write(n);i:=i+1;n:=n+1-round(ln(i and(-i))/0.7)until i<1end.