program asd;
var n,lvl,i : integer;
    f,g : text;

procedure ad(x:integer);
begin
lvl := lvl+1;
if x div 2 > 1 then ad(x div 2 +1);
end;


begin
lvl := 1;
assign(f,'sortare.in');
reset(f);
readln(f,n);
close(f);
assign(f,'sortare.out');
rewrite(f);
ad(n);
writeln(f,lvl);
for i := 1 to n do
write(f,i,' ');
close(f);
end.