program persegipanjang;
var
  a,b,n : smallint;
begin
write('input : ');readln(n);
    for a := 1 to n do
      begin
        for b := 1 to n do
          begin
            write('*');
          end;
        writeln;
      end;
    readln;
end.