{
ZADATAK: kartice
JEZIK: pascal
}

var i,j,k:longint;
        t,f:text;
begin
assign(t,'kartice.in');
reset(t);
readln(t,i);
close(t);
assign(f,'kartice.out');
rewrite(f);
writeln(f,0);
writeln(f,1);
if i=10 then
begin
writeln(f,1);
writeln(f,2);
writeln(f,3);
writeln(f,3);
writeln(f,3);
writeln(f,4);
writeln(f,5);
writeln(f,6);
end
else
begin
randomize;
k:=1;
for j:=1 to i-2 do
begin
inc(k,random(2));
writeln(f, k);
end;
end;
close(f);
end.
