use strict;
use warnings;

<> =~ /(\d+)/;

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