{
ZADATAK: kartice
JEZIK: pascal
}
program kartice;
var
f:text;
i,n:integer;
Begin
assign(f,'kartice.in');
reset(f);
readln(f,n);
close(f);
assign(f,'kartice.out');
rewrite(f);
if n=10 then
Begin
writeln(f,0);
writeln(f,1);
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
       for i:=1 to n do
        writeln(f,i-1);
      end;
close(f);
end.