print "Not enough perlbell: use 'x' operator for inner loop\n";
for my $i (reverse 1 .. $n) {
    print "*" x $i, "\n";
}