var
 I : integer;
 S : string;
begin
I := 0; 
Repeat
 Inc(I); 
 S := DupeString('*', I);
 Writeln(S);
Until (False);

end;