var  
  x,y,n,i:longint;
begin
  readln(n);
  for i:=n downto 1 do writeln(i);
end.
/**************************************************************
	Problem: 1697
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/