use strict;
use warnings;

my $num =<>;

for(reverse (1..$num)){
  print $num x $_, "\n";
}