chomp( my $count = <> );

my @numbers;
$numbers[scalar <>]++ while $count--;

foreach my $number ( 0 .. $#numbers ) {
  next unless defined $numbers[$number];
  print "$number\n" for 1 .. $numbers[$number];
}