#!/usr/bin/env perl

use strict;
use utf8;
use warnings;

my $n = <>;
chomp $n;
for (my $i = $n; $i > 0; $i--) {
  for (1...$i) {
    print $n;
  }
  print "\n";
}