var a,i,j:longint;
begin
read(a);
for i:=a downto 1 do
begin
for j:=1 to i do
write('*');
writeln;
end;
end.
/**************************************************************
	Problem: 1782
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/